izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Browse Source

TOWORD: tiny optimization 

My mind is getting forthy.
pull/102/head
Virgil Dupras 4 years ago
parent
33d37d4ce9
commit
052d59a3a2
2 changed files with 1 additions and 7 deletions
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +1
    -7
      blk/405
  2. BIN
      emul/forth.bin

+ 1
- 7
blk/405 View File

@@ -1,9 +1,3 @@
: WS? 33 < ;

: TOWORD
BEGIN
C< DUP WS? NOT IF EXIT THEN DROP
AGAIN
;


: TOWORD 0 ( dummy ) BEGIN DROP C< DUP WS? NOT UNTIL ;

BIN
emul/forth.bin View File


Write Preview
Loading…
Cancel
Save