From cfc515dcc74901ff7fc73879ac9718b9424a9310 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sat, 11 Jun 2016 23:25:23 +1200 Subject: [PATCH] Minor changes. --- src/lib_5_strings.4th | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 , -- 2.20.1