19 lines
332 B
Racket
19 lines
332 B
Racket
#;
|
|
(exn-pred exn:fail:contract?)
|
|
#lang scheme/load
|
|
|
|
(module m typed-scheme
|
|
(define-struct: x ([f : (Number -> Number)]))
|
|
(: my-x x)
|
|
(define my-x (make-x (lambda: ([z : Number]) z)))
|
|
(provide (all-defined-out)))
|
|
|
|
(module n2 scheme/base
|
|
|
|
(require 'm scheme/match)
|
|
(match my-x
|
|
[(struct x (f)) (f #f)]))
|
|
|
|
|
|
(require 'n2)
|