version 1.26, 1997/02/08 22:58:16
|
version 1.29, 1997/12/14 01:15:20
|
Line 42
|
Line 42
|
|
|
warnings off |
warnings off |
|
|
|
include search.fs |
include extend.fs |
include extend.fs |
|
|
\ require interpretation.fs |
\ require interpretation.fs |
require debugging.fs |
\ require debugs.fs |
[IFUNDEF] vocabulary include search-order.fs [THEN] |
[IFUNDEF] vocabulary include search.fs [THEN] |
[IFUNDEF] environment? include environ.fs [THEN] |
[IFUNDEF] environment? include environ.fs [THEN] |
include gray.fs |
include gray.fs |
|
|
Line 615 set-current
|
Line 616 set-current
|
: output-forth ( -- ) flush-comment on |
: output-forth ( -- ) flush-comment on |
?flush-comment |
?flush-comment |
forth-code @ 0= |
forth-code @ 0= |
IF output-alias |
IF \ output-alias |
|
\ this is bad for ec: an alias is compiled if tho word does not exist! |
|
\ JAW |
ELSE ." : " forth-name 2@ type ." ( " |
ELSE ." : " forth-name 2@ type ." ( " |
effect-in effect-in-end @ .stack-list ." -- " |
effect-in effect-in-end @ .stack-list ." -- " |
effect-out effect-out-end @ .stack-list ." )" cr |
effect-out effect-out-end @ .stack-list ." )" cr |