diff options
Diffstat (limited to 'src/interp/i-spec2.boot')
-rw-r--r-- | src/interp/i-spec2.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index e78da954..f4256a06 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -809,8 +809,9 @@ evalQUOTE(op,[expr],[m]) == --% Quasiquotation up_[_|_|_] t == t isnt [op, x] => nil - putValue(op, objNewWrap(x, $Syntax)) - putModeSet(op, [$Syntax]) + mode := getTypeOfSyntax x + putValue(op, objNewWrap(x, mode)) + putModeSet(op, [mode]) --% Handler for pretend |