version 1.178, 2011/10/06 20:04:35
|
version 1.179, 2011/10/06 20:21:28
|
Line 643 Defer parse-name ( "name" -- c-addr u )
|
Line 643 Defer parse-name ( "name" -- c-addr u )
|
' parse-name alias name ( -- c-addr u ) \ gforth-obsolete |
' parse-name alias name ( -- c-addr u ) \ gforth-obsolete |
\G old name for @code{parse-name} |
\G old name for @code{parse-name} |
|
|
|
: no.extensions ( addr u -- ) |
|
2drop -&13 throw ; |
|
|
|
has? recognizer 0= [IF] |
Defer compiler-notfound1 ( c-addr count -- ... xt ) |
Defer compiler-notfound1 ( c-addr count -- ... xt ) |
Defer interpreter-notfound1 ( c-addr count -- ... xt ) |
Defer interpreter-notfound1 ( c-addr count -- ... xt ) |
|
|
: no.extensions ( addr u -- ) |
|
2drop -&13 throw ; |
|
' no.extensions IS compiler-notfound1 |
' no.extensions IS compiler-notfound1 |
' no.extensions IS interpreter-notfound1 |
' no.extensions IS interpreter-notfound1 |
|
[THEN] |
|
|
Defer before-word ( -- ) \ gforth |
Defer before-word ( -- ) \ gforth |
\ called before the text interpreter parses the next word |
\ called before the text interpreter parses the next word |