From 033711bf6aca2024422246d5f86b2174f779df5b Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 23 Mar 2013 17:10:11 -0700
Subject: [PATCH] compiler.errors: Rename linkage-error.
---
basis/compiler/errors/errors.factor | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/basis/compiler/errors/errors.factor b/basis/compiler/errors/errors.factor
index 0588539e4a..51a4f48cb8 100644
--- a/basis/compiler/errors/errors.factor
+++ b/basis/compiler/errors/errors.factor
@@ -44,7 +44,7 @@ T{ error-type
: <linkage-error> ( error word -- linkage-error )
\ linkage-error <definition-error> ;
-: linkage-error ( name message word class -- )
+: set-linkage-error ( name message word class -- )
'[ _ boa ] dip <linkage-error> dup asset>> linkage-errors get set-at ; inline
T{ error-type
@@ -61,13 +61,13 @@ TUPLE: no-such-library name message ;
M: no-such-library summary drop "Library not found" ;
-: no-such-library-error ( name message word -- ) \ no-such-library linkage-error ;
+: no-such-library-error ( name message word -- ) \ no-such-library set-linkage-error ;
TUPLE: no-such-symbol name message ;
M: no-such-symbol summary drop "Symbol not found" ;
-: no-such-symbol-error ( name message word -- ) \ no-such-symbol linkage-error ;
+: no-such-symbol-error ( name message word -- ) \ no-such-symbol set-linkage-error ;
ERROR: not-compiled word error ;