18 lines
350 B
Racket
18 lines
350 B
Racket
#;
|
|
(exn-pred exn:fail:syntax? #rx".*unbound identifier.*make-q.*")
|
|
|
|
#lang scheme/load
|
|
|
|
(module l scheme
|
|
(define-struct q ())
|
|
(provide (all-defined-out)))
|
|
|
|
(module m typed-scheme
|
|
(require-typed-struct q () #:extra-constructor-name make-q 'l)
|
|
(provide (all-defined-out)))
|
|
|
|
(module n typed-scheme
|
|
(require 'm)
|
|
(: f q)
|
|
(define f (make-q)))
|