X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Fprivate.fth;h=58c3c305fd0e5995b1b521071c574cef853cb4a0;hb=ff136ea5caf229ce3135cc6245051f40a9b443f3;hp=d7d465d132c87a301841535c24daf85146aa4867;hpb=8e9db35f299d8f606ba003d3cd8fa9e2c868c880;p=debian%2Fpforth

diff --git a/fth/private.fth b/fth/private.fth
index d7d465d..58c3c30 100644
--- a/fth/private.fth
+++ b/fth/private.fth
@@ -21,19 +21,22 @@ anew task-private.fth
 
 variable private-start
 variable private-stop
-$ 20 constant FLAG_SMUDGE
 
 : PRIVATE{
+    private-start @ 0= not abort" ERROR: Missing PRIVATIZE"
+    private-stop @ 0= not abort" ERROR: Missing PRIVATIZE"
     latest private-start !
     0 private-stop !
 ;
+
 : }PRIVATE
-    private-stop @ 0= not abort" Extra }PRIVATE"
+    private-stop @ 0= not abort" ERROR: Extra }PRIVATE"
     latest private-stop !
 ;
+
 : PRIVATIZE  ( -- , smudge all words between PRIVATE{ and }PRIVATE )
-    private-start @ 0= abort" Missing PRIVATE{"
-    private-stop @ 0= abort" Missing }PRIVATE"
+    private-start @ 0= abort" ERROR: Missing PRIVATE{"
+    private-stop @ 0= abort" ERROR: Missing }PRIVATE"
     private-stop @
     BEGIN
         dup private-start @ u>    \ 19970701