aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/compiler.boot4
1 files changed, 3 insertions, 1 deletions
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]