diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-02-19 09:27:56 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-02-19 09:27:56 +0000 |
| commit | de74121648d44897c40b8f0bd53e64c0599bdb2d (patch) | |
| tree | 2d01e3cedfc1ab52682ed82afe654897c40e0d22 /src/interp | |
| parent | d2bcc405fe2c77818ea89966730e78340bd3782d (diff) | |
| download | open-axiom-de74121648d44897c40b8f0bd53e64c0599bdb2d.tar.gz | |
* interp/br-data.boot (libConstructorSig): Rename T$ to T for
external name printing. Do not call ncParseFromString.
Diffstat (limited to 'src/interp')
| -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] => |