mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 09:48:05 +11:00
527f5977d7
Previously, these words would be ascii emitters, but seldom used except for the SPC emitter. However, I would often end up hardcoding these constants. With useless emitters removed and ASCII constants added, we have a more usable system. Also, fix broken test harness.
10 lines
260 B
Forth
10 lines
260 B
Forth
( Forth testing harness
|
|
"#" means "assert". We stop at first failure, indicating
|
|
the failure through IO on port 1 )
|
|
|
|
: fail SPC> ." failed" NL> 1 1 PC! BYE ;
|
|
|
|
: # IF SPC> ." pass" NL> ELSE fail THEN ;
|
|
|
|
: #eq 2DUP SWAP . SPC> '=' EMIT SPC> . '?' EMIT = # ;
|