aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/compiler.boot1
-rw-r--r--src/interp/postpar.boot3
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)