From 918208aeb6d2916b7fb3beb9ab3ec1420e5ed3b5 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 23 Mar 2013 17:14:53 -0700
Subject: [PATCH] compiler.units: Rename redefine-error.

---
 core/compiler/units/units.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index b74f96a24e..a35706697c 100644
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -13,13 +13,13 @@ SYMBOL: new-definitions
 
 TUPLE: redefine-error def ;
 
-: redefine-error ( definition -- )
+: throw-redefine-error ( definition -- )
     \ redefine-error boa throw-continue ;
 
 <PRIVATE
 
 : add-once ( key set -- )
-    2dup in? [ over redefine-error ] when adjoin ;
+    2dup in? [ over throw-redefine-error ] when adjoin ;
 
 : (remember-definition) ( definition loc set -- )
     [ over set-where ] dip add-once ;
@@ -33,7 +33,7 @@ PRIVATE>
     old-definitions get [ delete ] with each ;
 
 : remember-class ( class loc -- )
-    [ dup new-definitions get first in? [ dup redefine-error ] when ] dip
+    [ dup new-definitions get first in? [ dup throw-redefine-error ] when ] dip
     new-definitions get second (remember-definition) ;
 
 : forward-reference? ( word -- ? )