version 1.24, 1997/05/29 19:42:13
|
version 1.25, 1997/06/06 17:27:55
|
Line 73 decimal
|
Line 73 decimal
|
: C" ( compilation "...<quote>" -- ; run-time -- c-addr ) \ core-ext c-quote |
: C" ( compilation "...<quote>" -- ; run-time -- c-addr ) \ core-ext c-quote |
[char] " parse postpone CLiteral ; immediate restrict |
[char] " parse postpone CLiteral ; immediate restrict |
|
|
\ UNUSED 17may93jaw |
|
|
|
: dictionary-end ( -- addr ) |
|
forthstart dup 3 cells + @ + ; |
|
|
|
: unused ( -- u ) \ core-ext |
|
dictionary-end here - ; |
|
|
|
\ [COMPILE] 17may93jaw |
\ [COMPILE] 17may93jaw |
|
|
: [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile |
: [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile |