basis: ERROR: changes.

[factor.git] / basis / compiler / cfg / registers / registers.factor

diff --git a/basis/compiler/cfg/registers/registers.factor b/basis/compiler/cfg/registers/registers.factor
index c6b630b79ed8132941fb1f575fc48036bd944cd9..4b29c16b746ff5735c4c3311abab95eaa5cc7f07 100644 (file)
--- a/basis/compiler/cfg/registers/registers.factor
+++ b/basis/compiler/cfg/registers/registers.factor
@@ -16,7 +16,7 @@ SYMBOL: representations
 ERROR: bad-vreg vreg ;
 
 : rep-of ( vreg -- rep )
-    representations get ?at [ bad-vreg ] unless ;
+    representations get ?at [ throw-bad-vreg ] unless ;
 
 : set-rep-of ( rep vreg -- )
     representations get set-at ;