--- gforth/prims2x.fs 1997/02/08 22:58:16 1.26 +++ gforth/prims2x.fs 1997/12/14 01:15:20 1.29 @@ -42,11 +42,12 @@ warnings off +include search.fs include extend.fs \ require interpretation.fs -require debugging.fs -[IFUNDEF] vocabulary include search-order.fs [THEN] +\ require debugs.fs +[IFUNDEF] vocabulary include search.fs [THEN] [IFUNDEF] environment? include environ.fs [THEN] include gray.fs @@ -615,7 +616,9 @@ set-current : output-forth ( -- ) flush-comment on ?flush-comment 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 ." ( " effect-in effect-in-end @ .stack-list ." -- " effect-out effect-out-end @ .stack-list ." )" cr