version 1.2, 2012/06/23 23:44:30
|
version 1.3, 2012/06/24 22:02:03
|
Line 30
|
Line 30
|
forth-recognizer get-recognizers |
forth-recognizer get-recognizers |
1+ forth-recognizer set-recognizers |
1+ forth-recognizer set-recognizers |
|
|
|
0 [IF] \ dot-quoted strings, we don't need them |
: slit. slit, postpone type ; |
: slit. slit, postpone type ; |
|
|
' type ' slit. ' slit, recognizer: r:." |
' type ' slit. ' slit, recognizer: r:." |
Line 41 forth-recognizer get-recognizers
|
Line 42 forth-recognizer get-recognizers
|
|
|
' ."-recognizer |
' ."-recognizer |
forth-recognizer get-recognizers |
forth-recognizer get-recognizers |
1+ forth-recognizer set-recognizers |
|
|
|
|
1+ forth-recognizer set-recognizers |
|
[THEN] |
|
|