diff options
| -rw-r--r-- | src/interp/compiler.boot | 4 |
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] |