definitions: removing unused "new-word?" word.

db4
John Benediktsson 2014-11-29 21:46:26 -08:00
parent 913e69500f
commit c2261c05fd
1 changed files with 2 additions and 4 deletions

View File

@ -29,9 +29,6 @@ SYMBOL: new-words
: new-word ( word -- )
new-words get add-to-unit ;
: new-word? ( word -- ? )
new-words get in? ;
GENERIC: where ( defspec -- loc )
M: object where drop f ;
@ -45,7 +42,8 @@ SYMBOL: forgotten-definitions
: forgotten-definition ( defspec -- )
forgotten-definitions get add-to-unit ;
: forget ( defspec -- ) [ forgotten-definition ] [ forget* ] bi ;
: forget ( defspec -- )
[ forgotten-definition ] [ forget* ] bi ;
M: f forget* drop ;