bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 09fb1ebdc65612eab3755deaba17306015dc24e8
parent 2a26dc1d27300b2a12f5a84077b3a77e3f9dbcac
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat, 10 Apr 1999 16:52:07 +0000

.

original commit: 8de57f63bcc2e16aebc8cc4f5604b207ab483255

Diffstat:
M
collects/help/help.ss
 | 
13
++++++++++---

1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/collects/help/help.ss b/collects/help/help.ss
@@ -17,11 +17,18 @@
 
 (require-library "startup-url.ss" "help")
 
-(invoke-unit/sig
+(require-library "framework.ss" "framework")
+
+(invoke-open-unit/sig
  (require-relative-library "helpr.ss")
- help:option^
+ #f
  mzlib:function^
  mzlib:string^
  mzlib:file^
  mzlib:url^
- mred^)
+ mred^
+ framework^)
+
+(new-help-frame startup-url)
+
+(yield (make-semaphore))