diff options
Diffstat (limited to 'src')
| -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) |