Fix white spaces.

[pforth] / fth / private.fth

diff --git a/fth/private.fth b/fth/private.fth
index 782ec1c..d7d465d 100644 (file)
--- a/fth/private.fth
+++ b/fth/private.fth
@@ -1,48 +1,48 @@
-\ @(#) private.fth 98/01/26 1.2\r
-\ PRIVATIZE\r
-\\r
-\ Privatize words that are only needed within the file\r
-\ and do not need to be exported.\r
-\\r
-\ Usage:\r
-\    PRIVATE{\r
-\    : FOO ;  \ Everything between PRIVATE{ and }PRIVATE will become private.\r
-\    : MOO ;\r
-\    }PRIVATE\r
-\    : GOO   foo moo ;  \ can use foo and moo\r
-\    PRIVATIZE          \ smudge foo and moo\r
-\    ' foo              \ will fail\r
-\\r
-\ Copyright 1996 Phil Burk\r
-\\r
-\ 19970701 PLB Use unsigned compares for machines with "negative" addresses.\r
-\r
-anew task-private.fth\r
-\r
-variable private-start\r
-variable private-stop\r
-$ 20 constant FLAG_SMUDGE\r
-\r
-: PRIVATE{\r
-       latest private-start !\r
-       0 private-stop !\r
-;\r
-: }PRIVATE\r
-       private-stop @ 0= not abort" Extra }PRIVATE"\r
-       latest private-stop !\r
-;\r
-: PRIVATIZE  ( -- , smudge all words between PRIVATE{ and }PRIVATE )\r
-       private-start @ 0= abort" Missing PRIVATE{"\r
-       private-stop @ 0= abort" Missing }PRIVATE"\r
-       private-stop @\r
-       BEGIN\r
-               dup private-start @ u>    \ 19970701\r
-       WHILE\r
-\              ." Smudge " dup id. cr\r
-               dup c@ flag_smudge or over c!\r
-               prevname\r
-       REPEAT\r
-       drop\r
-       0 private-start !\r
-       0 private-stop !\r
-;\r
+\ @(#) private.fth 98/01/26 1.2
+\ PRIVATIZE
+\
+\ Privatize words that are only needed within the file
+\ and do not need to be exported.
+\
+\ Usage:
+\    PRIVATE{
+\    : FOO ;  \ Everything between PRIVATE{ and }PRIVATE will become private.
+\    : MOO ;
+\    }PRIVATE
+\    : GOO   foo moo ;  \ can use foo and moo
+\    PRIVATIZE          \ smudge foo and moo
+\    ' foo              \ will fail
+\
+\ Copyright 1996 Phil Burk
+\
+\ 19970701 PLB Use unsigned compares for machines with "negative" addresses.
+
+anew task-private.fth
+
+variable private-start
+variable private-stop
+$ 20 constant FLAG_SMUDGE
+
+: PRIVATE{
+    latest private-start !
+    0 private-stop !
+;
+: }PRIVATE
+    private-stop @ 0= not abort" 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-stop @
+    BEGIN
+        dup private-start @ u>    \ 19970701
+    WHILE
+\       ." Smudge " dup id. cr
+        dup c@ flag_smudge or over c!
+        prevname
+    REPEAT
+    drop
+    0 private-start !
+    0 private-stop !
+;