cpu.x86.assembler: fix typo

2010-05-18 17:59:34 -04:00 · 2010-05-18 17:59:34 -04:00 · 2dde83767c
parent 0aa6ae0feb
commit 2dde83767c
1 changed files with 1 additions and 1 deletions
--- a/basis/cpu/x86/assembler/syntax/syntax.factor
+++ b/basis/cpu/x86/assembler/syntax/syntax.factor
@ -20,7 +20,7 @@ registers [ H{ } clone ] initialize
    '[ _ + _ define-register ] map-index ;

 : define-registers ( names size -- )
-    [ [ 0 ] dip (define-registers) ] [ drop ] 2bi registers get set-at ;
+    [ [ 0 ] dip (define-registers) ] keep registers get set-at ;

 SYNTAX: REGISTERS:
    scan-word [ ";" parse-tokens ] dip define-registers ;