6502
/
of816
mirror of https://github.com/mgcaret/of816.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

remove debug message

This commit is contained in:
mgcaret 2020-11-11 15:49:17 -08:00
parent 188e80756b
commit 13bb6067f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ofw/of/property.fs
View File

@ -44,7 +44,7 @@ true value encode-first?
\ : prune ( name len -- ) last (prune) ;
\ OF816: just smudge it, hopefully properties don't change that often
: 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
drop \ protected or smudged already
else