X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Fforth.jl;h=b1d782ce1d11a0e6d291083315532922ea43c51c;hp=e571758f6d76254f7c5f70f023cbe6afa95fc7c2;hb=d2b2b3e5b33f882c18c9e7cf8c6623f4e863c2dd;hpb=ad636b04df0d48148241fb282ed3afc69ce9561d diff --git a/src/forth.jl b/src/forth.jl index e571758..b1d782c 100644 --- a/src/forth.jl +++ b/src/forth.jl @@ -626,24 +626,10 @@ WORD = defPrimWord("WORD", () -> begin eof_char = Char(EOF) c = eof_char - skip_to_end = false while true - callPrim(mem[KEY]) c = Char(popPS()) - if c == '\\' - skip_to_end = true - continue - end - - if skip_to_end - if c == '\n' || c == eof_char - skip_to_end = false - end - continue - end - if c == ' ' || c == '\t' continue end @@ -852,7 +838,7 @@ end, name="DOCOL") defConst("DODOES", DODOES) FROMDOES_PAREN = defWord("(DOES>)", - [DODOES, LAST, FETCH, TOCFA, STORE, EXIT]) + [DODOES, LATEST, FETCH, TOCFA, STORE, EXIT]) FROMDOES = defWord("DOES>", [BTICK, FROMDOES_PAREN, COMMA, BTICK, EXIT, COMMA,