typed-racket/typed-racket-test/succeed/pr10562.rkt
2014-12-16 10:07:25 -05:00

5 lines
133 B
Racket

#lang typed/racket
(: foo : (Rec this (List Number (Boxof (U #f this)))))
(define foo (list 1 (box #f)))
(set-box! (second foo) foo)