izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Move ASCII constants from str unit to print

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-04 10:28:00 -04:00
parent ba384bfa0f
commit 435b4f452c
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
forth/parse.fs
View File

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

5
forth/print.fs
View File

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

2
forth/readln.fs
View File

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

5
forth/str.fs
View File

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