diff options
author | dos-reis <gdr@axiomatics.org> | 2007-09-15 18:09:50 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-09-15 18:09:50 +0000 |
commit | 91fd7baaf6d987505fe5f78cb6976cc6c42bb22c (patch) | |
tree | c11702bf345188ff95eb39b4a0e7e222c047fa6a /src/interp/i-output.boot.pamphlet | |
parent | f05e773f803aaaec6f229fe28a826f13159796e3 (diff) | |
download | open-axiom-91fd7baaf6d987505fe5f78cb6976cc6c42bb22c.tar.gz |
Fix Bug SF/1790563
* i-output.boot.pamphlet (outputDomainConstructor): Devaluate
domain form only if it is in vector representation.
Diffstat (limited to 'src/interp/i-output.boot.pamphlet')
-rw-r--r-- | src/interp/i-output.boot.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot.pamphlet b/src/interp/i-output.boot.pamphlet index f711ea18..f28b0af0 100644 --- a/src/interp/i-output.boot.pamphlet +++ b/src/interp/i-output.boot.pamphlet @@ -1468,7 +1468,7 @@ outputString(start,linelength,str) == sayALGEBRA [blnks, str] outputDomainConstructor form == - if VECTORP CAR form then form := devaluate form + if VECTORP form then form := devaluate form atom (u:= prefix2String form) => u v:= [object2String(x) for x in u] return INTERNL eval ['STRCONC,:v] |