diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-14 21:41:05 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-14 21:41:05 +0000 |
| commit | 683b15834757e0ccb39afe72bb46c4d644ce033e (patch) | |
| tree | 38124177955a731f9b1dc358067bc8e706b74446 /src/interp/i-output.boot | |
| parent | 03096666f13a4659f18824b2676aa27602999ab5 (diff) | |
| download | open-axiom-683b15834757e0ccb39afe72bb46c4d644ce033e.tar.gz | |
* boot/ast.boot (bfQ): Emit STRING= for string comparison.
* interp/i-output.boot: Fix type violation in equality comparison.
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index cff0e227..bc847e3e 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -2424,7 +2424,7 @@ superSubApp(u, x, y, di) == stringer x == string? x => x - EQ('_|, FETCHCHAR(s:= STRINGIMAGE x, 0)) => + '_| = FETCHCHAR(s:= STRINGIMAGE x, 0) => RPLACSTR(s, 0, 1, "", nil, nil) s |