| |
|
| \ 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 |
