13 lines
443 B
Scheme
13 lines
443 B
Scheme
(read-case-sensitive #t)
|
|
(compile-allow-cond-fallthrough #t)
|
|
(compile-allow-set!-undefined #t)
|
|
(require-library "mred-interfaces.ss" "framework")
|
|
(require-library "frameworks.ss" "framework")
|
|
(invoke-open-unit/sig
|
|
(compound-unit/sig
|
|
(import)
|
|
(link [M : mred-interfaces^ (mred-interfaces@)]
|
|
[C : mzlib:core^ ((require-library "corer.ss"))]
|
|
[F : framework^ ((require-library "frameworkr.ss" "framework") C M)])
|
|
(export (open F))))
|