Fixed linking bug

svn: r4532

original commit: a9301386437e4bb09067a3f8528012ad2a83f745
This commit is contained in:
Ryan Culpepper 2006-10-09 15:38:20 +00:00
parent e7dda36836
commit 4245032983

View File

@ -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))))
)