diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-14 05:32:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-14 05:32:03 +0000 |
| commit | 2517db47d3d02dfaf79ddd9935b9dd4fb57a1a3c (patch) | |
| tree | 90b4d0ddaf2c5b239f0b3c20cb92224f1b166ca6 | |
| parent | ea018ab3ef159cb91afeae1690bb1890653efea6 (diff) | |
| download | open-axiom-2517db47d3d02dfaf79ddd9935b9dd4fb57a1a3c.tar.gz | |
Remove effectively deadcode from comp3.
| -rw-r--r-- | src/interp/compiler.boot | 1 | ||||
| -rw-r--r-- | src/interp/postpar.boot | 3 |
2 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index e6b9f2c8..ab9747b6 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -172,7 +172,6 @@ comp3(db,x,m,$e) == $e:= addDomain(db,m,$e) e:= $e --for debugging purposes m is ["Mapping",:.] => compWithMappingMode(x,m,e) - m is ['QUOTE,a] => (x=a => [x,m,$e]; nil) string? m => (x isnt [.,:.] => (m=x or m=STRINGIMAGE x => [m,m,e]; nil); nil) -- In quasiquote mode, x should match exactly (y := isQuasiquote m) => diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot index 7cdf7674..e3d88016 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -77,8 +77,7 @@ displayPreCompilationErrors() == postTran: %ParseTree -> %ParseForm postTran x == - x isnt [.,:.] => - postAtom x + x isnt [.,:.] => postAtom x op := first x op is 'QUOTE => x symbol? op and (f:= property(op,'postTran)) => FUNCALL(f,x) |