basis: ERROR: changes.

[factor.git] / basis / compiler / cfg / linear-scan / numbering / numbering.factor

diff --git a/basis/compiler/cfg/linear-scan/numbering/numbering.factor b/basis/compiler/cfg/linear-scan/numbering/numbering.factor
index cf61de5ef35eafba9676592a2335ea415abc1448..dda239d64223905f25535d0e22c2f1e810729071 100644 (file)
--- a/basis/compiler/cfg/linear-scan/numbering/numbering.factor
+++ b/basis/compiler/cfg/linear-scan/numbering/numbering.factor
@@ -18,7 +18,7 @@ ERROR: bad-numbering bb ;
 
 : check-block-numbering ( bb -- )
     dup instructions>> [ insn#>> ] map sift [ <= ] monotonic?
-    [ drop ] [ bad-numbering ] if ;
+    [ drop ] [ throw-bad-numbering ] if ;
 
 : check-numbering ( cfg -- )
     check-numbering? get