basis: ERROR: changes.

[factor.git] / basis / cpu / x86 / assembler / operands / operands.factor

diff --git a/basis/cpu/x86/assembler/operands/operands.factor b/basis/cpu/x86/assembler/operands/operands.factor
index 2a2faa4039911995af8fbe9884a9dc9eb6838729..6368405e6597b611855062a9d99d3e1baaf4a312 100644 (file)
--- a/basis/cpu/x86/assembler/operands/operands.factor
+++ b/basis/cpu/x86/assembler/operands/operands.factor
@@ -66,7 +66,7 @@ M: indirect extended? base>> extended? ;
 ERROR: bad-index indirect ;
 
 : check-ESP ( indirect -- indirect )
-    dup index>> { ESP RSP } member-eq? [ bad-index ] when ;
+    dup index>> { ESP RSP } member-eq? [ throw-bad-index ] when ;
 
 : canonicalize ( indirect -- indirect )
     #! Modify the indirect to work around certain addressing mode