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

more typos

Browse Source 
svn: r2221
This commit is contained in:
Eli Barzilay 2006-02-13 23:04:20 +00:00
parent da5fadeee7
commit fc0b5ffe62
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/handin-client/client-gui.ss
View File

@ -647,7 +647,7 @@
(define phase1 void)
(define phase2
(if updater?
(dynamic-require `(lib ,this-collection "updater.ss") 'bg-update)
(dynamic-require `(lib "updater.ss" ,this-collection) 'bg-update)
void))
(define tool-button-label (bitmap-label-maker button-label/h handin-icon))
@ -672,7 +672,7 @@
[parent file-menu]
[callback (lambda (m e)
((dynamic-require
`(lib ,this-collection "handin-multi.ss")
`(lib "handin-multi.ss" ,this-collection)
'multifile-handin)))]))
(when updater?
(new menu-item%
@ -680,7 +680,7 @@
[parent file-menu]
[callback
(lambda (m e)
((dynamic-require `(lib ,this-collection "updater.ss")
((dynamic-require `(lib "updater.ss" ,this-collection)
'update)
#f #t))])) ; no parent
(new separator-menu-item% [parent file-menu]))

2
collects/handin-client/handin-multi.ss
View File

@ -22,7 +22,7 @@
(define update
(and (#%info-lookup 'enable-auto-update (lambda () #f))
(dynamic-require `(lib ,this-collection "updater.ss") 'bg-update)))
(dynamic-require `(lib "updater.ss" ,this-collection) 'bg-update)))
;; ==========================================================================
(define magic #"<<<MULTI-SUBMISSION-FILE>>>")