Minor changes.

[forth.jl.git] / src / lib_5_strings.4th

diff --git a/src/lib_5_strings.4th b/src/lib_5_strings.4th
index d0619f0..bc2d69c 100644 (file)
--- 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 ,