Hit on working TICK implementation.

[forth.jl.git] / src / lib.fs

diff --git a/src/lib.fs b/src/lib.fs
index f4883c5..652709e 100644 (file)
--- a/src/lib.fs
+++ b/src/lib.fs
@@ -1,3 +1,4 @@
+
 : / /MOD SWAP DROP ;
 : MOD /MOD DROP ;
 
@@ -17,3 +18,12 @@
 
 : ':' [ CHAR : ] LITERAL ;
 
+: ';' [ CHAR ; ] LITERAL ;
+: '(' [ CHAR ( ] LITERAL ;
+: ')' [ CHAR ) ] LITERAL ;
+: '"' [ CHAR " ] LITERAL ;
+: 'A' [ CHAR A ] LITERAL ;
+: '0' [ CHAR 0 ] LITERAL ;
+: '-' [ CHAR - ] LITERAL ;
+: '.' [ CHAR . ] LITERAL ;
+