From 25997cc7785b62bb209d61a17a6e394eaf237130 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 22 Mar 2018 13:48:55 +1300 Subject: [PATCH] Switch to skeleton-stx with struct-type rather than predicate --- syndicate/pattern.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/syndicate/pattern.rkt b/syndicate/pattern.rkt index e438dc8..65b0025 100644 --- a/syndicate/pattern.rkt +++ b/syndicate/pattern.rkt @@ -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]))