suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 4785a9301084162bdb89ec75a4183ec0dcd5b4bd
This commit is contained in:
Robby Findler 2001-04-07 02:20:29 +00:00
parent 6c4dd3e1b7
commit 4d89ae4cd0
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/help/help.ss
View File

@ -1,6 +1,6 @@
(when (getenv "MREDDEBUG") (when (getenv "MREDDEBUG")
(current-load (let ([ol (current-load)]) (lambda (x) (printf "~a~n" x) (ol x)))) (current-load (let ([ol (current-load)]) (lambda (x) (printf "~a~n" x) (ol x))))
(require-library "errortrace.ss" "errortrace") (eval '(require "errortrace.ss" "errortrace"))
(error-print-width 180)) (error-print-width 180))
#| #|
TODO: TODO:
@ -19,7 +19,8 @@
"startup-url.ss" "startup-url.ss"
(lib "framework.ss" "framework") (lib "framework.ss" "framework")
(lib "plt-installer.ss" "setup") (lib "plt-installer.ss" "setup")
(lib "get-info.ss" "setup")) (lib "get-info.ss" "setup")
"help-unit.ss")
(define-values/invoke-unit/sig (define-values/invoke-unit/sig
help:get-info^ help:get-info^
@ -44,13 +45,13 @@
(lambda (x) (and (number? x) (exact? x) (= x (floor x))))) (lambda (x) (and (number? x) (exact? x) (= x (floor x)))))
(define-values/invoke-unit/sig help:help^ (define-values/invoke-unit/sig help:help^
(require-relative-library "helpr.ss") help-unit@
#f #f
setup:plt-installer^ setup:plt-installer^
mred^ mred^
framework^ framework^
(frame-mixin) (frame-mixin)
help:doc-position^) help:doc-position^)
(new-help-frame startup-url)) (new-help-frame startup-url))