--- gforth/prims2x.fs 1997/05/21 20:39:37 1.27 +++ gforth/prims2x.fs 1997/12/14 01:15:20 1.29 @@ -42,6 +42,7 @@ warnings off +include search.fs include extend.fs \ require interpretation.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