Implement BUF"

[rrq/jonasforth.git] / sys.f

diff --git a/sys.f b/sys.f
index 6b13ff9775b5b0ad93c26ada9e83e00c504b8feb..27d540a87cee34e5f172194a21b88812ec72338e 100644 (file)
--- a/sys.f
+++ b/sys.f
@@ -1,4 +1,4 @@
-S" :" CREATE ] DOCOL
+BUF" :" CREATE ] DOCOL
   READ-WORD CREATE
   LIT DOCOL ,
   ]