cpu.x86.assembler: fix typo

diff --git a/basis/cpu/x86/assembler/syntax/syntax.factor b/basis/cpu/x86/assembler/syntax/syntax.factor
index 9f9cea506b44ca4219e1af2be8a165d3bf214cb3..185d892ce7291c2037b8cc2090f0b0437c06b6d1 100644 (file)
--- 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 ;