aboutsummaryrefslogtreecommitdiff
path: root/src/interp/format.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r--src/interp/format.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot
index f762c33f..15ba282d 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -789,7 +789,7 @@ form2Fence1 x ==
['" ", x]
form2FenceQuote x ==
- NUMBERP x => [STRINGIMAGE x]
+ integer? x => [STRINGIMAGE x]
symbol? x => [FORMAT(NIL, '"|~a|", x)]
string? x => ['"_"",x,'"_""]
atom x => systemErrorHere ["form2FenceQuote",x]