version 1.46, 2000/10/29 20:27:02
|
version 1.47, 2002/12/04 10:42:58
|
Line 73 decimal
|
Line 73 decimal
|
|
|
\ C" 17may93jaw |
\ C" 17may93jaw |
|
|
: (c") "lit ; |
|
|
|
: CLiteral |
|
postpone (c") here over char+ allot place align ; immediate restrict |
|
|
|
: C" ( compilation "ccc<quote>" -- ; run-time -- c-addr ) \ core-ext c-quote |
: C" ( compilation "ccc<quote>" -- ; run-time -- c-addr ) \ core-ext c-quote |
\G Compilation: parse a string @i{ccc} delimited by a @code{"} |
\G Compilation: parse a string @i{ccc} delimited by a @code{"} |
\G (double quote). At run-time, return @i{c-addr} which |
\G (double quote). At run-time, return @i{c-addr} which |