Implement '\'-style comments

[rrq/jonasforth.git] / sys.f

diff --git a/sys.f b/sys.f
index 27d540a87cee34e5f172194a21b88812ec72338e..38708d1e1a88f479264951bf154c85509583826d 100644 (file)
--- a/sys.f
+++ b/sys.f
@@ -1,4 +1,4 @@
-BUF" :" CREATE ] DOCOL
+S" :" CREATE ] DOCOL
   READ-WORD CREATE
   LIT DOCOL ,
   ]
@@ -47,7 +47,7 @@ EXIT [
     ELSE
       DROP
     THEN
-  AGAIN ;
+  AGAIN ; ( Yay! We now have comments! )
 
 : UNTIL IMMEDIATE
   ' 0BRANCH ,
@@ -69,6 +69,12 @@ EXIT [
 
 : OVER ( a b -- a b a ) SWAP DUP ROT ;
 
+( An alternative comment syntax. Reads until the end of the line. )
+: \ IMMEDIATE
+  BEGIN
+    KEY
+  10 = UNTIL ;
+
 ( Compile the given string into the current word directly. )
 : STORE-STRING ( str len -- )
   BEGIN
@@ -83,5 +89,7 @@ EXIT [
 ( Read a number from standard input. )
 : READ-NUMBER READ-WORD PARSE-NUMBER ;
 
+S" Ready." TELL NEWLINE
+
 ( vim: syntax=forth
 )