revert tweak

2005-12-10 06:10:36 +00:00 · 2005-12-10 06:10:36 +00:00 · 8de238eece
parent 3174f87b67
commit 8de238eece
1 changed files with 1 additions and 1 deletions
--- a/library/vocabularies.factor
+++ b/library/vocabularies.factor
@ -47,7 +47,7 @@ SYMBOL: vocabularies
 : lookup ( name vocab -- word ) vocab ?hash ;

 : search ( name vocabs -- word )
-    dupd [ lookup ] find nip ?hash ;
+    [ lookup ] map-with [ ] find nip ;

 : reveal ( word -- )
    #! Add a new word to its vocabulary.