mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
8 lines
176 B
Forth
8 lines
176 B
Forth
\ Implements ENUM.
|
|
|
|
\ Double DOES>!
|
|
: enum create 0 , does> create dup @ 1 rot +! , does> @ ;
|
|
|
|
\ But this is simpler.
|
|
: enum create 0 , does> dup @ constant 1 swap +! ;
|