diff options
author | dos-reis <gdr@axiomatics.org> | 2009-07-26 06:25:38 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-07-26 06:25:38 +0000 |
commit | bff72ecab3900add29892dc64d98936c0424a609 (patch) | |
tree | c1363026271b6f06f00ec7b1dc8b621f4eacf0de /src/interp/format.boot | |
parent | 0d661cf09b5f357230ee63dd079b04fc8138d235 (diff) | |
download | open-axiom-bff72ecab3900add29892dc64d98936c0424a609.tar.gz |
* interp/c-doc.boot (checkDecorate): Tidy.
* interp/format.boot (form2Fence1): Likewise.
(form2FenceQuote): Likewise.
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r-- | src/interp/format.boot | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index 9e2c9416..3d72f266 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2009, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -782,16 +782,17 @@ form2Fence form == form2Fence1 x == x is [op,:argl] => - op = 'QUOTE => ['"(QUOTE ",:form2FenceQuote first argl,'")"] + op = "QUOTE" => ['"(QUOTE ",:form2FenceQuote first argl,'")"] ['"(", FORMAT(NIL, '"|~a|", op),:"append"/[form2Fence1 y for y in argl],'")"] + null x => '"" IDENTP x => FORMAT(NIL, '"|~a|", x) --- [x] ['" ", x] form2FenceQuote x == NUMBERP x => [STRINGIMAGE x] SYMBOLP x => [FORMAT(NIL, '"|~a|", x)] - atom x => '"??" + STRINGP x => ['"_"",x,'"_""] + atom x => systemErrorHere ["form2FenceQuote",x] ['"(",:form2FenceQuote first x,:form2FenceQuoteTail rest x] form2FenceQuoteTail x == |