\ @(#) private.fth 98/01/26 1.2
\ Privatize words that are only needed within the file
\ and do not need to be exported.
\ : FOO ; \ Everything between PRIVATE{ and }PRIVATE will become private.
\ : GOO foo moo ; \ can use foo and moo
\ PRIVATIZE \ smudge foo and moo
\ Copyright 1996 Phil Burk
\ 19970701 PLB Use unsigned compares for machines with "negative" addresses.
$ 20 constant FLAG_SMUDGE
private-stop @ 0= not abort" Extra }PRIVATE"
: PRIVATIZE ( -- , smudge all words between PRIVATE{ and }PRIVATE )
private-start @ 0= abort" Missing PRIVATE{"
private-stop @ 0= abort" Missing }PRIVATE"
dup private-start @ u> \ 19970701
dup c@ flag_smudge or over c!