From 2517db47d3d02dfaf79ddd9935b9dd4fb57a1a3c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 14 Jun 2013 05:32:03 +0000
Subject: Remove effectively deadcode from comp3.

---
 src/interp/compiler.boot | 1 -
 src/interp/postpar.boot  | 3 +--
 2 files changed, 1 insertion(+), 3 deletions(-)

(limited to 'src')

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)
-- 
cgit v1.2.3