12 lines
241 B
Racket
12 lines
241 B
Racket
#lang racket/load
|
|
|
|
(module untyped racket/base
|
|
(struct posn (x y))
|
|
(provide (struct-out posn)))
|
|
|
|
(module typed typed/racket/base
|
|
(require-typed-struct posn ((x : Real) (y : Real)) 'untyped)
|
|
(provide (struct-out posn)))
|
|
|
|
(require 'typed)
|