diff options
author | dos-reis <gdr@axiomatics.org> | 2011-03-05 16:46:00 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-03-05 16:46:00 +0000 |
commit | 382517ec42b83bef4bb6effa31b2e8cc70dada5d (patch) | |
tree | facc962192caedbe0af083a768fdee3c0dd6df8c /src/interp/format.boot | |
parent | b751bf4b87bb5f784e3a08185e69a43efac23e48 (diff) | |
download | open-axiom-382517ec42b83bef4bb6effa31b2e8cc70dada5d.tar.gz |
* interp/as.boot: Use getConstructorAbbreviationFromDB.
* interp/br-con.boot: Likewise.
* interp/br-data.boot: Likewise.
* interp/br-prof.boot: Likewise.
* interp/br-util.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/clammed.boot: Likewise.
* interp/database.boot: Likewise.
* interp/define.boot: Likewise.
* interp/format.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/g-cndata.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/pspad1.boot: Likewise.
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r-- | src/interp/format.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index 519d0169..9f225f0c 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -398,7 +398,7 @@ form2String1 u == -- string literals (e.g. "failed") masquerading as constructors stringImage op op='Join or op= 'mkCategory => formJoin1(op,argl) - $InteractiveMode and IDENTP op and (u:= constructor? op) => + $InteractiveMode and IDENTP op and (u:= getConstructorAbbreviationFromDB op) => null argl => app2StringWrap(formWrapId constructorName op, u1) op = "NTuple" => [ form2String1 first argl, '"*"] op = "Map" => ['"(",:formatSignature0 [argl.1,argl.0],'")"] |