X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_1_basic.4th;h=90fad637b677b7f2f50e8e00e2021150b393cf48;hb=ae4223943bf7e35ae347623000ec23f096b7baca;hp=40851f34e198b37ea532e08d30227065d545716f;hpb=6cb12b03e2a154214fc60d7c437e650e79fb42e5;p=forth.jl.git

diff --git a/src/lib_1_basic.4th b/src/lib_1_basic.4th
index 40851f3..90fad63 100644
--- a/src/lib_1_basic.4th
+++ b/src/lib_1_basic.4th
@@ -44,10 +44,13 @@
 : SPACE BL emit ;
 
 : ' BL WORD FIND DROP ;
-: [COMPILE] IMMEDIATE ' , ;
 : ['] IMMEDIATE
      LIT LIT , ' , ;
 
+: [COMPILE] IMMEDIATE ' , ;
+: COMPILE IMMEDIATE
+    LIT LIT , ' , LIT , , ;
+
 : LITERAL IMMEDIATE ['] LIT , , ;
 
 : CHAR BL WORD 1+ @ ;