Switch to skeleton-stx with struct-type rather than predicate
This commit is contained in:
parent
1d67cbe65e
commit
25997cc778
|
@ -106,9 +106,9 @@
|
|||
(define (desc->skeleton-stx desc)
|
||||
(match desc
|
||||
[`(compound list ,pieces ...)
|
||||
#`(list list? #,@(map desc->skeleton-stx pieces))]
|
||||
[`(compound (,_struct-type ,_ctor ,pred ,_getters ,_setters ,_super) ,pieces ...)
|
||||
#`(list #,pred #,@(map desc->skeleton-stx pieces))]
|
||||
#`(list 'list #,@(map desc->skeleton-stx pieces))]
|
||||
[`(compound (,struct-type ,_ctor ,_pred ,_getters ,_setters ,_super) ,pieces ...)
|
||||
#`(list #,struct-type #,@(map desc->skeleton-stx pieces))]
|
||||
[`(capture ,_ ,p) (desc->skeleton-stx p)]
|
||||
[`(discard) #'#f]
|
||||
[`(atom ,_) #'#f]))
|
||||
|
|
Loading…
Reference in New Issue