This website works better with JavaScript.
Home
Explore
lain.church
Help
Register
Sign In
izaya
/
collapseos
mirror of
https://github.com/hsoft/collapseos.git
Watch
1
Star
1
Fork
0
Code
Issues
0
Releases
0
Wiki
Activity
Browse Source
forth: forgot to commit high.fs...
pull/95/head
Virgil Dupras
4 years ago
parent
ac914c3847
commit
d5b6659507
1 changed files
with
14 additions
and
0 deletions
Split View
Diff Options
Show Stats
Download Patch File
Download Diff File
+14
-0
forth/high.fs
+ 14
- 0
forth/high.fs
View File
@@ -0,0 +1,14 @@
( Higher level stuff that generally requires all core units )
: ."
LIT
BEGIN
C< DUP ( c c )
( 34 is ASCII for " )
DUP 34 = IF DROP DROP 0 0 THEN
C,
0 = UNTIL
COMPILE (print)
; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
Write
Preview
Loading…
Cancel
Save