diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-14 05:56:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-14 05:56:12 +0000 |
| commit | 09c021ae74c560f83d9a491d4e610681828a8028 (patch) | |
| tree | 9c3ccfd75efb8e40bb17b838c7ea9651a5d1c7b4 /src/interp | |
| parent | 2517db47d3d02dfaf79ddd9935b9dd4fb57a1a3c (diff) | |
| download | open-axiom-09c021ae74c560f83d9a491d4e610681828a8028.tar.gz | |
Remove effectively deadcode from comp3.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index ab9747b6..0306d3d6 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -172,7 +172,9 @@ comp3(db,x,m,$e) == $e:= addDomain(db,m,$e) e:= $e --for debugging purposes m is ["Mapping",:.] => compWithMappingMode(x,m,e) - string? m => (x isnt [.,:.] => (m=x or m=STRINGIMAGE x => [m,m,e]; nil); nil) + string? m => + string? x and stringEq?(x,m) => [x,m,e] + nil -- In quasiquote mode, x should match exactly (y := isQuasiquote m) => y = x => [quote x, m, $e] |