steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

revert tweak

cvs
Slava Pestov 2005-12-10 06:10:36 +00:00
parent 3174f87b67
commit 8de238eece
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/vocabularies.factor
View File

@ -47,7 +47,7 @@ SYMBOL: vocabularies
: lookup ( name vocab -- word ) vocab ?hash ; : lookup ( name vocab -- word ) vocab ?hash ;
: search ( name vocabs -- word ) : search ( name vocabs -- word )
dupd [ lookup ] find nip ?hash ; [ lookup ] map-with [ ] find nip ;
: reveal ( word -- ) : reveal ( word -- )
#! Add a new word to its vocabulary. #! Add a new word to its vocabulary.