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 (module view mzscheme
(require (lib "unitsig.ss") (require (lib "unitsig.ss")
(lib "class.ss")
(lib "mred.ss" "mred") (lib "mred.ss" "mred")
(lib "framework.ss" "framework") (lib "framework.ss" "framework")
(prefix sb: "../syntax-browser/embed.ss")
"interfaces.ss" "interfaces.ss"
"prefs.ss"
"gui.ss") "gui.ss")
(provide (all-defined)) (provide (all-defined))
@ -19,9 +16,7 @@
(define-values/invoke-unit/sig view^ (define-values/invoke-unit/sig view^
(compound-unit/sig (compound-unit/sig
(import) (import)
(link (PREFS : prefs^ (prefs@)) (link [BASE : view-base^ (view-base@)]
(SB : sb:implementation^ (sb:implementation@)) [STEPPER : view^ (pre-stepper@ BASE)])
(BASE : view-base^ (view-base@)) (export (open STEPPER))))
(VIEW : view^ (view@ BASE SB)))
(export (open VIEW))))
) )