Move ASCII constants from str unit to print

forth/parse.fs

@@ -80,7 +80,7 @@
     (parseb) IF EXIT THEN
     (parsed) IF EXIT THEN
     ( nothing works )
-    ABORT" unknown word! "
+    LIT< (wnf) (find) DROP EXECUTE
 ;
 
 ' (parse) (parse*) !

forth/print.fs

@@ -28,3 +28,8 @@
 
 : (uflw) ABORT" stack underflow" ;
 : (wnf) ABORT" word not found" ;
+
+: BS 8 EMIT ;
+: LF 10 EMIT ;
+: CR 13 EMIT ;
+: SPC 32 EMIT ;

forth/readln.fs

@@ -1,4 +1,4 @@
-( requires core, parse )
+( requires core, parse, print )
 
 ( Managing variables in a core module is tricky. Sure, we
   have (sysv), but here we need to allocate a big buffer, and

forth/str.fs

@@ -5,8 +5,3 @@
     1 +
     AGAIN
 ;
-
-: BS 8 EMIT ;
-: LF 10 EMIT ;
-: CR 13 EMIT ;
-: SPC 32 EMIT ;