diff options
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r-- | src/interp/format.boot | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index 31533e4d..2339954b 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -394,6 +394,9 @@ form2String1 u == stringImage u u1 := u [op,:argl] := u + string? op and argl = nil => + -- 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) => null argl => app2StringWrap(formWrapId constructorName op, u1) |