version 1.1, 1994/02/11 16:30:46
|
version 1.2, 1994/04/20 17:12:03
|
Line 268 Defer parser
|
Line 268 Defer parser
|
Defer name ' (name) IS name |
Defer name ' (name) IS name |
Defer notfound |
Defer notfound |
|
|
: no.extensions ( string -- ) IF &-13 bounce THEN ; |
: no.extensions ( string -- ) IF &-13 bounce THEN ; |
|
|
' no.extensions IS notfound |
' no.extensions IS notfound |
|
|
Line 286 Defer notfound
|
Line 286 Defer notfound
|
: compiler ( name -- ) find ?dup |
: compiler ( name -- ) find ?dup |
IF 0> IF execute EXIT THEN compile, EXIT THEN number? dup |
IF 0> IF execute EXIT THEN compile, EXIT THEN number? dup |
IF 0> IF swap postpone Literal THEN postpone Literal |
IF 0> IF swap postpone Literal THEN postpone Literal |
ELSE notfound THEN ; |
ELSE drop notfound THEN ; |
|
|
: [ ['] interpreter IS parser state off ; immediate |
: [ ['] interpreter IS parser state off ; immediate |
: ] ['] compiler IS parser state on ; |
: ] ['] compiler IS parser state on ; |
Line 486 Create ??? ," ???"
|
Line 486 Create ??? ," ???"
|
: (Constant) Header reveal [ :docon ] ALiteral cfa, ; |
: (Constant) Header reveal [ :docon ] ALiteral cfa, ; |
: Constant (Constant) , ; |
: Constant (Constant) , ; |
: AConstant (Constant) A, ; |
: AConstant (Constant) A, ; |
: 2CONSTANT ( w1 w2 "name" -- ) \ double |
: 2Constant ( w1 w2 "name" -- ) \ double |
(constant) 2, ; |
Create 2, DOES> 2@ ; |
|
|
\ IS Defer What's Defers TO 24feb93py |
\ IS Defer What's Defers TO 24feb93py |
|
|