basis: ERROR: changes.

[factor.git] / basis / bootstrap / image / image.factor

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index dda459e5956374ef8b09e6c95036be6733b526cf..ddf5471fe2f62ecd19903a351d6ac4e3c4fdf47a 100755 (executable)
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -365,7 +365,7 @@ ERROR: not-in-image vocabulary word ;
 
 : fixup-word ( word -- offset )
     transfer-word dup lookup-object
-    [ ] [ [ vocabulary>> ] [ name>> ] bi not-in-image ] ?if ;
+    [ ] [ [ vocabulary>> ] [ name>> ] bi throw-not-in-image ] ?if ;
 
 : fixup-words ( -- )
     bootstrapping-image get [ dup word? [ fixup-word ] when ] map! drop ;
@@ -437,7 +437,7 @@ M: byte-array '
 ERROR: tuple-removed class ;
 
 : require-tuple-layout ( word -- layout )
-    dup tuple-layout [ ] [ tuple-removed ] ?if ;
+    dup tuple-layout [ ] [ throw-tuple-removed ] ?if ;
 
 : (emit-tuple) ( tuple -- pointer )
     [ tuple-slots ]