suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tighten stx conversion

Browse Source
This commit is contained in:
Matthew Butterick 2016-04-28 17:53:27 -07:00
parent d46534dfdc
commit cfa042ce40
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
beautiful-racket-lib/br/define.rkt
View File

@ -61,7 +61,7 @@
body ...)] ... body ...)] ...
[else (raise-syntax-error 'define-cases (format "no matching case for syntax pattern ~v" (syntax->datum stx)) (syntax->datum #'top-id.name))])) [else (raise-syntax-error 'define-cases (format "no matching case for syntax pattern ~v" (syntax->datum stx)) (syntax->datum #'top-id.name))]))
(if (not (syntax? result)) (if (not (syntax? result))
(datum->syntax stx result) (datum->syntax #'top-id.name result)
result))))] result))))]
;; function matcher ;; function matcher
@ -230,7 +230,7 @@
_body ...)] ... _body ...)] ...
[else (raise-syntax-error 'define-cases-inverting (format "no matching case for syntax pattern ~v" (syntax->datum stx)) (syntax->datum #'_id))])) [else (raise-syntax-error 'define-cases-inverting (format "no matching case for syntax pattern ~v" (syntax->datum stx)) (syntax->datum #'_id))]))
(if (not (syntax? result)) (if (not (syntax? result))
(datum->syntax stx result) (datum->syntax #'_id result)
result))])))])) result))])))]))