From ca035d7709a5519c1bcdacfaba7993c95af74f27 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 11 Dec 2005 23:48:42 +0000 Subject: [PATCH] search word tweak --- library/compiler/x86/architecture.factor | 2 +- library/vocabularies.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/library/compiler/x86/architecture.factor b/library/compiler/x86/architecture.factor index 4917bb76af..4df4b8239b 100644 --- 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 ; diff --git a/library/vocabularies.factor b/library/vocabularies.factor index 94f65bfd41..ee73531241 100644 --- 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.