diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-28 23:39:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-28 23:39:44 +0000 |
| commit | ca4b1b74d8e743f50f0db37f1b33265f46547f01 (patch) | |
| tree | cfa8803798bef9eb304da47b18ef024c5c39b702 /src/interp/br-saturn.boot | |
| parent | 9ddf05bc7781163fbd6bd2b894337d8721de117a (diff) | |
| download | open-axiom-ca4b1b74d8e743f50f0db37f1b33265f46547f01.tar.gz | |
Character constants clean up
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index e40099e2..362aee5d 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -342,8 +342,8 @@ saturnTERPRI() == TERPRI() writeSaturnTable line == - open := charPosition(char '"_{",line,0) - close:= charPosition(char '"_}",line,0) + open := charPosition(char "{",line,0) + close:= charPosition(char "}",line,0) open < close => close := findBalancingBrace(line,open + 1,MAXINDEX line,0) or error '"no balancing brace" writeSaturnPrint SUBSTRING(line,0,close + 1) |