diff --git a/forth/parse.fs b/forth/parse.fs index b40d352..d7dc930 100644 --- a/forth/parse.fs +++ b/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*) ! diff --git a/forth/print.fs b/forth/print.fs index d1db462..88842a0 100644 --- a/forth/print.fs +++ b/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 ; diff --git a/forth/readln.fs b/forth/readln.fs index 28bc6b0..a270482 100644 --- a/forth/readln.fs +++ b/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 diff --git a/forth/str.fs b/forth/str.fs index 03f4644..b877be0 100644 --- a/forth/str.fs +++ b/forth/str.fs @@ -5,8 +5,3 @@ 1 + AGAIN ; - -: BS 8 EMIT ; -: LF 10 EMIT ; -: CR 13 EMIT ; -: SPC 32 EMIT ;