diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-18 05:43:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-18 05:43:52 +0000 |
| commit | 3467029153bc8d2115fb961eb5e4e995d62034f0 (patch) | |
| tree | 749cf4c97081e5013fb31b1c5af16262da65327a /src/interp/format.boot | |
| parent | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (diff) | |
| download | open-axiom-3467029153bc8d2115fb961eb5e4e995d62034f0.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/format.boot')
| -rw-r--r-- | src/interp/format.boot | 2 |
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] |