From de74121648d44897c40b8f0bd53e64c0599bdb2d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 19 Feb 2012 09:27:56 +0000
Subject: 	* interp/br-data.boot (libConstructorSig): Rename T$ to T for 
 external name printing.  Do not call ncParseFromString.

---
 src/interp/br-data.boot | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index 7a6f1485..3c44428f 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -126,7 +126,7 @@ buildLibdbString [x,:u] ==
   strconc(STRINGIMAGE x,strconc/[strconc('"`",STRINGIMAGE y) for y in u])
 
 libConstructorSig [conname,:argl] ==
-  [[.,:sig],:.] := getConstructorModemap conname
+  [[.,:sig],:.] := substitute("T","T$",getConstructorModemap conname)
   formals := take(#argl,$FormalMapVariableList)
   sig := applySubst(pairList($TriangleVariableList,formals),sig)
   keys := [g(f,sig,i) for f in formals for i in 1..] where
@@ -140,10 +140,7 @@ libConstructorSig [conname,:argl] ==
       [fn y for y in x]
   sig := [first sig,:[(k => [":",a,s]; s)
             for a in argl for s in rest sig for k in keys]]
-  sigpart:= form2LispString ['Mapping,:sig]
-  if null ncParseFromString sigpart then
-    sayBrightly ['"Won't parse: ",sigpart]
-  sigpart
+  form2LispString ['Mapping,:sig]
 
 concatWithBlanks r ==
   r is [head,:tail] =>
-- 
cgit v1.2.3