Update

[Programmingkid]

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