Added unicode completion support to repl. Closes #6.

[forth.jl.git] / src / lib_7_vocab.4th

diff --git a/src/lib_7_vocab.4th b/src/lib_7_vocab.4th
index 0631ff0..22d98b5 100644 (file)
--- a/src/lib_7_vocab.4th
+++ b/src/lib_7_vocab.4th
@@ -35,7 +35,7 @@
         WHILE
                 SWAP 1+         ( addr len -- len addr+1 )
                 DUP @           ( len addr -- len addr char | get the next character)
-                DUP 32 >= OVER 127 <= AND IF
+                DUP 32 >= IF
                         EMIT    ( len addr char -- len addr | and print it)
                 ELSE
                         BASE @ SWAP HEX