version 1.24, 1997/05/29 19:42:13
|
version 1.26, 1997/06/23 16:57:02
|
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 |
Line 94 decimal
|
Line 86 decimal
|
\ CONVERT 17may93jaw |
\ CONVERT 17may93jaw |
|
|
: convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext |
: convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext |
\ obsolescent; superseded by @code{>number}. |
\G obsolescent; superseded by @code{>number}. |
true >number drop ; |
char+ true >number drop ; |
|
|
\ ERASE 17may93jaw |
\ ERASE 17may93jaw |
|
|