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

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

@ -22,7 +22,7 @@
(define update (define update
(and (#%info-lookup 'enable-auto-update (lambda () #f)) (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>>>") (define magic #"<<<MULTI-SUBMISSION-FILE>>>")