search word tweak

2005-12-11 23:48:42 +00:00 · 2005-12-11 23:48:42 +00:00 · ca035d7709
parent 3bec501259
commit ca035d7709
2 changed files with 2 additions and 2 deletions
--- a/library/compiler/x86/architecture.factor
+++ b/library/compiler/x86/architecture.factor
@ -24,7 +24,7 @@ sequences ;
 : compile-c-call* ( symbol dll args -- operands )
    reverse-slice
    [ [ PUSH ] each compile-c-call ] keep
-    [ drop 0 scratch POP ] each ;
+    [ drop EDX POP ] each ;

 ! On x86, parameters are never passed in registers.
 M: int-regs fastcall-regs drop 0 ;
--- a/library/vocabularies.factor
+++ b/library/vocabularies.factor
@ -47,7 +47,7 @@ SYMBOL: vocabularies
 : lookup ( name vocab -- word ) vocab ?hash ;

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

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