18 lines
317 B
Racket
18 lines
317 B
Racket
#;
|
|
(exn-pred #rx"contract violation" #rx"blaming: top-level")
|
|
#lang racket/load
|
|
|
|
(module typed typed/racket
|
|
(provide g)
|
|
|
|
(: f (Byte -> Natural))
|
|
(define (f x) (add1 x))
|
|
(: g ((Boxof Any) -> Void))
|
|
(define (g b)
|
|
(set-box! b f)))
|
|
|
|
(require 'typed)
|
|
(define b (box #f))
|
|
(g b)
|
|
(displayln ((unbox b) "foo"))
|