From 362536248113df141d3dbaffffdf7794f43f726b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 1 Feb 2011 18:41:39 +0000
Subject: 	* interp/nrunopt.boot (NRTgetLookupFunction): Explain reason
 for 	non-extension.

---
 src/interp/nrunopt.boot | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot
index f15ed5f4..d83087d8 100644
--- a/src/interp/nrunopt.boot
+++ b/src/interp/nrunopt.boot
@@ -807,11 +807,12 @@ NRTgetLookupFunction(domform,exCategory,addForm) ==
   if null extends then 
     [u,msg,:v] := $why
     SAY '"--------------non extending category----------------------"
-    compilerMessage('"%1p of category %2p", [domform,u])
+    sayPatternMsg('"%1p of category %2p", [domform,u])
     if v ~= nil then
-      compilerMessage('"%1b %2p",[msg,first v])
+      sayPatternMsg('"%1b %2p",[msg,first v])
     else
-      compilerMessage('"%1b",[msg])
+      sayPatternMsg('"%1b",[msg])
+    SAY '"----------------------------------------------------------"
   extends => 'lookupIncomplete
   'lookupComplete
 
-- 
cgit v1.2.3