diff options
Diffstat (limited to 'src/interp/i-spec2.boot')
-rw-r--r-- | src/interp/i-spec2.boot | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index 94c7309f..b8dfdf42 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -796,6 +796,12 @@ evalQUOTE(op,[expr],[m]) == objNew(['QUOTE,expr],m) putValue(op,triple) +--% Quasiquotation +up_[_|_|_] t == + t isnt [op, x] => nil + putValue(op, objNewWrap(x, $Syntax)) + putModeSet(op, [$Syntax]) + --% Handler for pretend uppretend t == |