2017-08-31から1日間の記事一覧
再掲実はもうほとんどsyntax-caseになってます (define-syntax (our-if-using-match stx) (match (syntax->list stx) [(list name condition true-expr false-expr) (datum->syntax stx `(cond [,condition ,true-expr] [else ,false-expr]))])) syntax-case…
再掲実はもうほとんどsyntax-caseになってます (define-syntax (our-if-using-match stx) (match (syntax->list stx) [(list name condition true-expr false-expr) (datum->syntax stx `(cond [,condition ,true-expr] [else ,false-expr]))])) syntax-case…