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