cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compile TUCK

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-26 23:12:12 +00:00
parent 93f0b312a8
commit 55bc5060e4
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
wipforth.wat
View File

@@ -1095,6 +1095,16 @@
;; : TUCK DUP -ROT ; ;; : TUCK DUP -ROT ;
(data (i32.const 0x05e4)
"\d0\05\00\00"
"\04TUCK\00\00\00"
"\00\00\00\00"
"\08\02\00\00" ;; DUP
"\44\02\00\00" ;; -ROT
"\0c\04\00\00") ;; EXIT
;; => 0x1c bytes
;; : SPACE? ( byte -- bool ) ;; : SPACE? ( byte -- bool )
;; DUP 9 = SWAP \ Compare to horizontal tab ;; DUP 9 = SWAP \ Compare to horizontal tab
;; DUP 10 = SWAP \ Compare to line-feed ;; DUP 10 = SWAP \ Compare to line-feed