mirror of https://github.com/mgcaret/of816.git
remove debug message
This commit is contained in:
parent
188e80756b
commit
13bb6067f2
|
@ -44,7 +44,7 @@ true value encode-first?
|
||||||
\ : prune ( name len -- ) last (prune) ;
|
\ : prune ( name len -- ) last (prune) ;
|
||||||
\ OF816: just smudge it, hopefully properties don't change that often
|
\ OF816: just smudge it, hopefully properties don't change that often
|
||||||
: prune ( name len -- )
|
: prune ( name len -- )
|
||||||
get-current search-wordlist 0= if ." no prune!" cr exit then
|
get-current search-wordlist 0= if exit then
|
||||||
dup c@ (f_prot) (f_smudg) or and if
|
dup c@ (f_prot) (f_smudg) or and if
|
||||||
drop \ protected or smudged already
|
drop \ protected or smudged already
|
||||||
else
|
else
|
||||||
|
|
Loading…
Reference in New Issue