Permalink
Browse files

Bugfix: use ABORT" correctly. ;)

  • Loading branch information...
1 parent 0a67445 commit 688c8661f8754881c3ac91fbf98992e6cc0dc4e6 @hellige hellige committed May 9, 2012
Showing with 4 additions and 5 deletions.
  1. +0 −1 TODO
  2. +1 −1 disasm.ft
  3. +3 −3 goforth.ft
View
1 TODO
@@ -3,7 +3,6 @@ emulator:
- priority queue scheduling rather than every-device-every-tick
- detection and halt (awaiting interrupt) on halt-loop
goforth:
- - 'term green' should abort!
- move all raw assembler to before forthstart
- data stack in sp
- assembler
View
@@ -148,7 +148,7 @@ variable /disasm-pc
." unrecognized code field value"
endcase
drop cr ;
-: see ' ?dup 0= if abort" no such word" then cr xt-see ;
+: see ' ?dup 0= abort" no such word" cr xt-see ;
\ save the new image
View
@@ -289,10 +289,10 @@ term r g b hi 2* 4 lshift invert constant fgmask
: quit cr r0 @ rsp!
begin
defcon cr refill term g hi fg
- 0= if abort" failed to refill input buffer" then
+ 0= abort" failed to refill input buffer"
term g fg interpret term g hi fg
- 0= if abort" no such word" then
- dsp@ s0 @ u> if abort" stack underflow" then
+ 0= abort" no such word"
+ dsp@ s0 @ u> abort" stack underflow"
space ." ok " cr
again ;
\ and set the variable to tie the knot with abort

0 comments on commit 688c866

Please sign in to comment.