diff options
Diffstat (limited to 'stdlib/match.tl')
| -rw-r--r-- | stdlib/match.tl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/stdlib/match.tl b/stdlib/match.tl index c59179f3..92206e0b 100644 --- a/stdlib/match.tl +++ b/stdlib/match.tl @@ -1065,9 +1065,11 @@ (defun transform-qquote (syn) (match-case syn - ((sys:hash-lit nil . @(coll (@key @val))) + ((sys:hash-lit nil . @(all (@key @val))) ^@(hash ,*(zip [mapcar transform-qquote key] [mapcar transform-qquote val]))) + ((sys:hash-lit) + '@(hash)) ((sys:struct-lit @type . @args) ^@(struct ,(transform-qquote type) ,*[mapcar transform-qquote args])) |