-\ @(#) 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 !
+;