basis: ERROR: changes.

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

diff --git a/basis/compiler/cfg/stacks/padding/padding.factor b/basis/compiler/cfg/stacks/padding/padding.factor
index 78bd22dad0dd1fe2e002cf2ed917863949f1ce32..79d84488343a5df1702f69ee1a80c615290c555a 100644 (file)
--- a/basis/compiler/cfg/stacks/padding/padding.factor
+++ b/basis/compiler/cfg/stacks/padding/padding.factor
@@ -42,7 +42,7 @@ CONSTANT: initial-state { { 0 { } } { 0 { } } }
     [ register-write ] apply-stack-op ;
 
 : ensure-no-vacant ( state -- )
-    [ second ] map dup { { } { } } = [ drop ] [ vacant-when-calling ] if ;
+    [ second ] map dup { { } { } } = [ drop ] [ throw-vacant-when-calling ] if ;
 
 : all-live ( state -- state' )
     [ first { } 2array ] map ;
@@ -68,7 +68,7 @@ ERROR: vacant-peek insn ;
 
 : underflowable-peek? ( state peek -- ? )
     2dup loc>> >loc< swap [ 0 1 ? swap nth ] dip classify-read
-    dup 2 = [ drop vacant-peek ] [ 2nip 1 = ] if ;
+    dup 2 = [ drop throw-vacant-peek ] [ 2nip 1 = ] if ;
 
 M: ##peek visit-insn ( state insn -- state )
     dup loc>> n>> 0 >= t assert=