version 1.17, 1997/03/04 22:09:54
|
version 1.18, 1997/03/19 18:27:16
|
Line 68 NIL AConstant NIL \ gforth
|
Line 68 NIL AConstant NIL \ gforth
|
|
|
\ Aliases |
\ Aliases |
|
|
' i Alias r@ |
' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch |
|
\ copy w from the return stack to the data stack |
|
|
\ Bit string manipulation 06oct92py |
\ Bit string manipulation 06oct92py |
|
|
Line 264 Defer source ( -- addr count ) \ core
|
Line 265 Defer source ( -- addr count ) \ core
|
: (compile) ( -- ) \ gforth |
: (compile) ( -- ) \ gforth |
r> dup cell+ >r @ compile, ; |
r> dup cell+ >r @ compile, ; |
|
|
: postpone, ( w xt -- ) |
: postpone, ( w xt -- ) \ gforth postpone-comma |
\g Compiles the compilation semantics represented by @var{w xt}. |
\g Compiles the compilation semantics represented by @var{w xt}. |
dup ['] execute = |
dup ['] execute = |
if |
if |
Line 961 end-struct interpret/compile-struct
|
Line 962 end-struct interpret/compile-struct
|
then |
then |
then ; |
then ; |
|
|
: find ( c-addr -- xt +-1 / c-addr 0 ) \ core |
: find ( c-addr -- xt +-1 / c-addr 0 ) \ core,search |
dup count sfind dup |
dup count sfind dup |
if |
if |
rot drop |
rot drop |
Line 1301 DEFER DOERROR
|
Line 1302 DEFER DOERROR
|
\ : .name ( name -- ) name>string type space ; |
\ : .name ( name -- ) name>string type space ; |
\ : words listwords @ |
\ : words listwords @ |
\ BEGIN @ dup WHILE dup .name REPEAT drop ; |
\ BEGIN @ dup WHILE dup .name REPEAT drop ; |
Defer 'cold ' noop IS 'cold |
Defer 'cold ( -- ) \ gforth tick-cold |
|
\ hook (deferred word) for things to do right before interpreting the |
|
\ command-line arguments |
|
' noop IS 'cold |
|
|
: cold ( -- ) \ gforth |
: cold ( -- ) \ gforth |
[ has-files [IF] ] |
[ has-files [IF] ] |