diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-28 21:16:57 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-28 21:16:57 +0000 |
| commit | 9ddf05bc7781163fbd6bd2b894337d8721de117a (patch) | |
| tree | d7b4839a0739975912b331672204eba4fc75ea13 /src/interp | |
| parent | 77f815abfd7c7d429b6bba09f249ae195ec04898 (diff) | |
| download | open-axiom-9ddf05bc7781163fbd6bd2b894337d8721de117a.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/c-doc.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index 2208da20..6e5fb843 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.boot @@ -806,9 +806,9 @@ checkDecorate u == => u := v acc - x = char '_$ or x is '"$" => ['"\$",:acc] - x = char '_% or x is '"%" => ['"\%",:acc] - x = char '_, or x is '"," => + char? x and x = char '_$ or x is '"$" => ['"\$",:acc] + char? x and x = char '_% or x is '"%" => ['"\%",:acc] + char? x and x = char '_, or x is '"," => spadflag => ['",",:acc] ['",{}",:acc] x is '"\spad" => ['"\spad",:acc] |