From: Tim Vaughan Date: Sat, 11 Jun 2016 11:25:23 +0000 (+1200) Subject: Minor changes. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=cfc515dcc74901ff7fc73879ac9718b9424a9310;p=forth.jl.git Minor changes. --- 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 ,