| \ this file comes last, because these words override cross' words. |
\ this file comes last, because these words override cross' words. |
| |
|
| create s"-buffer /line chars allot |
create s"-buffer /line chars allot |
| :noname [char] " parse |
has? ionly |
| |
[IF] : s" [ELSE] :noname [THEN] |
| |
[char] " parse |
| /line min >r s"-buffer r@ cmove |
/line min >r s"-buffer r@ cmove |
| s"-buffer r> ; |
s"-buffer r> ; |
| |
has? ionly 0= [IF] |
| :noname [char] " parse postpone SLiteral ; |
:noname [char] " parse postpone SLiteral ; |
| interpret/compile: S" ( compilation 'ccc"' -- ; run-time -- c-addr u ) \ core,file s-quote |
interpret/compile: S" ( compilation 'ccc"' -- ; run-time -- c-addr u ) \ core,file s-quote |
| |
[THEN] |
| |
|
| |
has? ionly 0= [IF] |
| : [IS] ( compilation "name" -- ; run-time xt -- ) \ possibly-gforth bracket-is |
: [IS] ( compilation "name" -- ; run-time xt -- ) \ possibly-gforth bracket-is |
| ' >body postpone ALiteral postpone ! ; immediate restrict |
' >body postpone ALiteral postpone ! ; immediate restrict |
| |
|
| ' IS Alias TO ( addr "name" -- ) \ core-ext |
' IS Alias TO ( addr "name" -- ) \ core-ext |
| immediate |
immediate |
| |
|
| |
[THEN] |
| |
|
| doer? :docon [IF] |
doer? :docon [IF] |
| : docon: ( -- addr ) \ gforth |
: docon: ( -- addr ) \ gforth |
| ['] reveal-method >code-address ; |
['] reveal-method >code-address ; |
| [THEN] |
[THEN] |
| |
|
| has-prims 0= [IF] |
has? prims 0= [IF] |
| : dodoes: ( -- addr ) \ gforth |
: dodoes: ( -- addr ) \ gforth |
| \G the code address of a @code{field} |
\G the code address of a @code{field} |
| ['] spaces >code-address ; |
['] spaces >code-address ; |
