2 Apr
2010
2 Apr
'10
10:35 p.m.
Here is a better version of '{' with another word added.
: currentWordName ( -- addr len ) currentWordAddr @ currentWordLen @ ;
: { copyWordName begin parse-word dup 0> while 2dup drop " }" comp 0= if exit then 2dup drop " ;" comp 0= if false useTopStackValue ! else currentWordAddr @ currentWordLen @ loadLocalVariable then repeat postpone currentWordName ; immediate