diff options
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 7 |
1 files changed, 2 insertions, 5 deletions
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] => |