From 9af269a864f7fde6ec8771e526ed4b1745da529d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Mar 2013 09:35:13 -0700
Subject: [PATCH] bootstrap.image: Use error syntax.
---
basis/bootstrap/image/image.factor | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index 051bd63524..c06883dc9a 100755
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -360,15 +360,14 @@ M: f ' drop \ f type-number ;
\ word [ emit-seq ] emit-object
] keep put-object ;
-: word-error ( word msg -- * )
- [ % dup vocabulary>> % " " % name>> % ] "" make throw ;
+ERROR: not-in-image vocabulary word ;
: transfer-word ( word -- word )
[ target-word ] keep or ;
: fixup-word ( word -- offset )
transfer-word dup lookup-object
- [ ] [ "Not in image: " word-error ] ?if ;
+ [ ] [ [ vocabulary>> ] [ name>> ] bi not-in-image ] ?if ;
: fixup-words ( -- )
image get [ dup word? [ fixup-word ] when ] map! drop ;