|
|
@ -17,6 +17,7 @@
|
|
|
|
: 2r@ ['] r> , ['] r> , ['] 2dup , ['] >r , ['] >r , ['] swap , ; imm
|
|
|
|
: 2r@ ['] r> , ['] r> , ['] 2dup , ['] >r , ['] >r , ['] swap , ; imm
|
|
|
|
|
|
|
|
|
|
|
|
: compile, postpone literal postpone execute ;
|
|
|
|
: compile, postpone literal postpone execute ;
|
|
|
|
|
|
|
|
: [compile] bl word find -1 = if , else compile, then ; imm
|
|
|
|
: \ _source @ >in @ +
|
|
|
|
: \ _source @ >in @ +
|
|
|
|
begin dup c@ while 0 over c! char+ repeat drop ; imm
|
|
|
|
begin dup c@ while 0 over c! char+ repeat drop ; imm
|
|
|
|
: again postpone repeat ; imm
|
|
|
|
: again postpone repeat ; imm
|
|
|
|