diff options
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] |