22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(define (nest-case pair)
(cons (list (car pair))
(cdr pair)))
(define (wrap pat)
(if (eq? (cdr pat) '()) ;then
pat
; else
(list (cons 'string-append pat))))
(let ([branches (map wrap patterns)])
(@one-of nest-case branches)))
; exports
|
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(define (nest-case pair)
(cons (list (car pair))
(cdr pair)))
(define (wrap pat)
(if (eq? (cdr pat) '()) ;then
pat
; else
(list (cons 'string-append pat))))
(let ([branches (map wrap patterns)])
(@one-of nest-case branches)))
; exports
|