From 91fd7baaf6d987505fe5f78cb6976cc6c42bb22c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 15 Sep 2007 18:09:50 +0000 Subject: Fix Bug SF/1790563 * i-output.boot.pamphlet (outputDomainConstructor): Devaluate domain form only if it is in vector representation. --- src/interp/i-output.boot.pamphlet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/i-output.boot.pamphlet') 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] -- cgit v1.2.3