version 1.41, 2008/07/15 16:11:49
|
version 1.42, 2011/02/24 20:47:51
|
Line 30 Constant fd-symbol-table
|
Line 30 Constant fd-symbol-table
|
[THEN] |
[THEN] |
|
|
|
|
bl word vocabulary find nip 0= [IF] |
bl parse-name vocabulary find-name 0= [IF] |
\ if search order stuff is missing assume we are compiling on a gforth |
\ if search order stuff is missing assume we are compiling on a gforth |
\ system and include it. |
\ system and include it. |
\ We want the files taken from our current gforth installation |
\ We want the files taken from our current gforth installation |