24 lines
646 B
Scheme
24 lines
646 B
Scheme
(module browser-unit mzscheme
|
|
(require (lib "unit.ss")
|
|
(lib "mred-sig.ss" "mred")
|
|
(lib "plt-installer-sig.ss" "setup")
|
|
(lib "tcp-sig.ss" "net")
|
|
(lib "url-sig.ss" "net")
|
|
(lib "url-unit.ss" "net")
|
|
"browser-sig.ss"
|
|
"private/bullet.ss"
|
|
"private/html.ss"
|
|
"private/hyper.ss")
|
|
|
|
(provide browser@)
|
|
|
|
(define-unit-from-context bullet@ bullet-export^)
|
|
|
|
(define-compound-unit/infer browser@
|
|
(import setup:plt-installer^
|
|
mred^
|
|
url^)
|
|
(export hyper^ html-export^ bullet-export^)
|
|
(link html@ hyper@ bullet@)))
|
|
|