Fixed linking bug
svn: r4532 original commit: a9301386437e4bb09067a3f8528012ad2a83f745
This commit is contained in:
parent
e7dda36836
commit
4245032983
|
@ -1,12 +1,9 @@
|
|||
|
||||
(module view mzscheme
|
||||
(require (lib "unitsig.ss")
|
||||
(lib "class.ss")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
(prefix sb: "../syntax-browser/embed.ss")
|
||||
"interfaces.ss"
|
||||
"prefs.ss"
|
||||
"gui.ss")
|
||||
(provide (all-defined))
|
||||
|
||||
|
@ -19,9 +16,7 @@
|
|||
(define-values/invoke-unit/sig view^
|
||||
(compound-unit/sig
|
||||
(import)
|
||||
(link (PREFS : prefs^ (prefs@))
|
||||
(SB : sb:implementation^ (sb:implementation@))
|
||||
(BASE : view-base^ (view-base@))
|
||||
(VIEW : view^ (view@ BASE SB)))
|
||||
(export (open VIEW))))
|
||||
(link [BASE : view-base^ (view-base@)]
|
||||
[STEPPER : view^ (pre-stepper@ BASE)])
|
||||
(export (open STEPPER))))
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue
Block a user