Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use ER macros for cyclone

Browse source
This commit is contained in:
Justin Ethier 2018-01-26 12:20:35 -05:00
parent 2d32e7d983
commit 8ceae73cef
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
match-test-lib.sld
View file

@ -965,6 +965,20 @@
;; Otherwise COND-EXPANDed bits. ;; Otherwise COND-EXPANDed bits.
(cond-expand (cond-expand
(cyclone
(define-syntax match-check-ellipsis
(er-macro-transformer
(lambda (expr rename compare)
(if (compare '... (cadr expr))
(car (cddr expr))
(cadr (cddr expr))))))
(define-syntax match-check-identifier
(er-macro-transformer
(lambda (expr rename compare)
(if (symbol? (cadr expr)) ;; TODO: good enough?
(car (cddr expr))
(cadr (cddr expr)))))))
(chibi (chibi
(define-syntax match-check-ellipsis (define-syntax match-check-ellipsis
(er-macro-transformer (er-macro-transformer