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

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 ,