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

---
 src/interp/compiler.boot | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

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