7 lines
107 B
Racket
7 lines
107 B
Racket
#lang htdp/bsl
|
|
(require racket/match)
|
|
(define-struct a (b))
|
|
(match (make-a 1)
|
|
[(struct a (b)) b]
|
|
[#f 3])
|