summary |
tags |
clone url |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
47a1084)
This will hide the internal words for HISTORY.
Also added some error checks to detect when we forget to call PRIVATIZE.
Fixes #54
$ 20 constant FLAG_SMUDGE
: PRIVATE{
$ 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 !
;
latest private-start !
0 private-stop !
;
- private-stop @ 0= not abort" Extra }PRIVATE"
+ private-stop @ 0= not abort" ERROR: Extra }PRIVATE"
: PRIVATIZE ( -- , smudge all words between PRIVATE{ and }PRIVATE )
: 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
private-stop @
BEGIN
dup private-start @ u> \ 19970701