15 lines
328 B
Racket
15 lines
328 B
Racket
#lang racket/load
|
|
|
|
(module UNTYPED racket/base
|
|
(struct IntTree
|
|
(elem left right))
|
|
|
|
(provide (struct-out IntTree)))
|
|
|
|
(module TYPED typed/racket
|
|
(require/typed 'UNTYPED
|
|
[struct IntTree
|
|
([elem : Integer]
|
|
[left : IntTree]
|
|
[right : IntTree])]))
|