suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use #:sub (bug reported in a blog comment)

Browse Source 
svn: r13293
This commit is contained in:
Eli Barzilay 2009-01-27 16:32:08 +00:00
parent f5ce61de97
commit 9f11b0fd04
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/help-desk.ss
View File

@ -64,7 +64,7 @@
(super-new))) (super-new)))
(define (goto-plt-license) (define (goto-plt-license)
(send-main-page "license/index.html")) (send-main-page #:sub "license/index.html"))
(define (help-desk [key #f] [context #f]) (define (help-desk [key #f] [context #f])
(if key (perform-search key context) (send-main-page))) (if key (perform-search key context) (send-main-page)))