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

search word tweak

cvs
Slava Pestov 2005-12-11 23:48:42 +00:00
parent 3bec501259
commit ca035d7709
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/compiler/x86/architecture.factor
View File

@ -24,7 +24,7 @@ sequences ;
: compile-c-call* ( symbol dll args -- operands ) : compile-c-call* ( symbol dll args -- operands )
reverse-slice reverse-slice
[ [ PUSH ] each compile-c-call ] keep [ [ PUSH ] each compile-c-call ] keep
[ drop 0 scratch POP ] each ; [ drop EDX POP ] each ;
! On x86, parameters are never passed in registers. ! On x86, parameters are never passed in registers.
M: int-regs fastcall-regs drop 0 ; M: int-regs fastcall-regs drop 0 ;

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 )
[ lookup ] map-with [ ] find nip ; dupd [ lookup ] find-with nip lookup ;
: reveal ( word -- ) : reveal ( word -- )
#! Add a new word to its vocabulary. #! Add a new word to its vocabulary.