13 lines
232 B
Racket
13 lines
232 B
Racket
#;
|
|
(exn-pred exn:fail:syntax? #rx".*typed module.*")
|
|
#lang scheme/load
|
|
|
|
(module m typed-scheme
|
|
(require (for-syntax scheme/base))
|
|
(define-syntax (q stx) #'#f)
|
|
(provide (all-defined-out)))
|
|
|
|
(module n scheme
|
|
(require 'm)
|
|
q)
|