X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib_7_vocab.4th;h=22d98b573e3daa4d6ca74f62a1e2f7e7b379fb23;hp=0631ff057b271ffb21616f76716c1f1076c07f17;hb=bd6a460f93aec59bd995b0133b3e965a584144ae;hpb=439068b43bd6a9337f0122639e6ed36fb7def257

diff --git a/src/lib_7_vocab.4th b/src/lib_7_vocab.4th
index 0631ff0..22d98b5 100644
--- 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