version 1.108, 2011/09/22 10:05:11
|
version 1.109, 2011/10/06 20:04:35
|
Line 364 has? primcentric [IF]
|
Line 364 has? primcentric [IF]
|
swap POSTPONE aliteral compile, |
swap POSTPONE aliteral compile, |
then ; |
then ; |
|
|
|
has? recognizer [IF] |
|
include ./recognizer.fs |
|
[ELSE] |
: POSTPONE ( "name" -- ) \ core |
: POSTPONE ( "name" -- ) \ core |
\g Compiles the compilation semantics of @i{name}. |
\g Compiles the compilation semantics of @i{name}. |
COMP' postpone, ; immediate |
COMP' postpone, ; immediate |
|
[THEN] |
|
|
\ \ recurse 17may93jaw |
\ \ recurse 17may93jaw |
|
|
Line 376 has? primcentric [IF]
|
Line 380 has? primcentric [IF]
|
|
|
\ \ compiler loop |
\ \ compiler loop |
|
|
|
has? recognizer 0= [IF] |
: compiler1 ( c-addr u -- ... xt ) |
: compiler1 ( c-addr u -- ... xt ) |
2dup find-name [ [IFDEF] prelude-mask ] run-prelude [ [THEN] ] dup |
2dup find-name [ [IFDEF] prelude-mask ] run-prelude [ [THEN] ] dup |
if ( c-addr u nt ) |
if ( c-addr u nt ) |
Line 403 has? primcentric [IF]
|
Line 408 has? primcentric [IF]
|
: ] ( -- ) \ core right-bracket |
: ] ( -- ) \ core right-bracket |
\G Enter compilation state. |
\G Enter compilation state. |
['] compiler1 IS parser1 state on ; |
['] compiler1 IS parser1 state on ; |
|
[THEN] |
|
|
\ \ Strings 22feb93py |
\ \ Strings 22feb93py |
|
|