X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Fforth.jl;h=5730c380a07215cd4712e30f61bea3a701e11ab1;hp=c5c7175c8d73a397beeb912005cb8de05a332335;hb=824a4be938c62e1254237eef0315d9248ab68dc5;hpb=3c35d5caec5303e84c5de9dde74759f38280a3d3 diff --git a/src/forth.jl b/src/forth.jl index c5c7175..5730c38 100644 --- a/src/forth.jl +++ b/src/forth.jl @@ -899,7 +899,7 @@ DOES_HELPER_CFA = defPrimWord("(DOES>)", () -> begin end)), name="doesPrim") return NEXT -end, flags=F_IMMED) +end, flags=F_IMMED | F_HIDDEN) DOES_CFA = defWord("DOES>", [LIT_CFA, LIT_CFA, COMMA_CFA, HERE_CFA, LIT_CFA, 3, ADD_CFA, COMMA_CFA,