diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 22:37:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 22:37:43 +0000 |
| commit | c552f9de83083a649b74510b522ceaebbbc0283b (patch) | |
| tree | a69dfbba85de4e384f172ebc0f47e12f7c63ebd2 /src/interp/br-saturn.boot | |
| parent | 0de5ea3df4ffff2d97202a66629e19e0579410ea (diff) | |
| download | open-axiom-c552f9de83083a649b74510b522ceaebbbc0283b.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 98b9543f..ace5f046 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -244,7 +244,7 @@ writeSaturn(line) == n := maxIndex line while --advance k if true k > n => false - line.k ~= char "\" => true + stringChar(line,k) ~= char "\" => true code := isBreakSegment?(line, k + 1,n) => false true repeat (k := k + 1) |