mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 01:30:22 +00:00
9 lines
242 B
Forth
9 lines
242 B
Forth
\ Simplifies compiling words.
|
|
|
|
: [[ ; immediate
|
|
: '<> >in @ ' swap >in ! <> ;
|
|
: (]]) begin dup '<> while postpone postpone repeat drop ;
|
|
: ]] ['] [[ (]]) ; immediate
|
|
|
|
( Usage: : foo ]] dup * [[ ; immediate : bar 42 foo . ; )
|