X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_5_strings.4th;h=bc2d69ccfc6d8f9493cbe4ec0eec0ade2599f9cb;hb=40ee2b7687b038db08a7337fc1ca36cc70633167;hp=d0619f0b4d0b1330fb6e714805371ac4ef3db855;hpb=e57561fe2d6e29350b0bfb580d7129910ece9689;p=forth.jl.git

diff --git a/src/lib_5_strings.4th b/src/lib_5_strings.4th
index d0619f0..bc2d69c 100644
--- a/src/lib_5_strings.4th
+++ b/src/lib_5_strings.4th
@@ -92,7 +92,8 @@
 : COUNT ( addr1 -- addr2 n )
         DUP 1+ SWAP @ ;
 
-: ABORT" IMMEDIATE
+( Abort if flag is true. )
+: ABORT" IMMEDIATE  ( flag -- )
         [COMPILE] S"
 
         ['] rot ,