basis: ERROR: changes.

[factor.git] / basis / compiler / cfg / stacks / finalize / finalize.factor

diff --git a/basis/compiler/cfg/stacks/finalize/finalize.factor b/basis/compiler/cfg/stacks/finalize/finalize.factor
index 210c9787729db95cf38b6dd5af1dcd1596a40c4c..985c4a32cea0b4828a35b8e4bdf6e6476045b3f8 100644 (file)
--- a/basis/compiler/cfg/stacks/finalize/finalize.factor
+++ b/basis/compiler/cfg/stacks/finalize/finalize.factor
@@ -24,7 +24,7 @@ ERROR: bad-peek dst loc ;
 
 : insert-peeks ( from to -- )
     [ inserting-peeks ] keep
-    [ dup n>> 0 < [ bad-peek ] [ ##peek, ] if ] each-insertion ;
+    [ dup n>> 0 < [ throw-bad-peek ] [ ##peek, ] if ] each-insertion ;
 
 : insert-replaces ( from to -- )
     [ inserting-replaces ] keep