aboutsummaryrefslogtreecommitdiff
path: root/src/interp/compiler.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r--src/interp/compiler.boot1
1 files changed, 0 insertions, 1 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) =>