version 1.36, 1999/11/08 22:01:08
|
version 1.37, 2000/02/04 14:52:30
|
Line 85 decimal
|
Line 85 decimal
|
\ [COMPILE] 17may93jaw |
\ [COMPILE] 17may93jaw |
|
|
: [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile |
: [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile |
comp' drop compile, ; immediate |
comp' drop |
|
dup [ comp' exit drop ] literal = if |
|
execute \ EXIT has default compilation semantics, perform them |
|
else |
|
compile, |
|
then ; immediate |
|
|
\ CONVERT 17may93jaw |
\ CONVERT 17may93jaw |
|
|