2 lines
46 B
Forth
2 lines
46 B
Forth
|
: ENUM ( n -<name>- n+1 ) DUP CONSTANT 1+ ;
|
|
|
: ENUM ( n -<name>- n+1 ) DUP CONSTANT 1+ ;
|