From fc0b5ffe6246d193de191ef98df79b15affc6a67 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 13 Feb 2006 23:04:20 +0000 Subject: [PATCH] more typos svn: r2221 --- collects/handin-client/client-gui.ss | 6 +++--- collects/handin-client/handin-multi.ss | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/handin-client/client-gui.ss b/collects/handin-client/client-gui.ss index 0f088dea87..742ec72832 100644 --- a/collects/handin-client/client-gui.ss +++ b/collects/handin-client/client-gui.ss @@ -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])) diff --git a/collects/handin-client/handin-multi.ss b/collects/handin-client/handin-multi.ss index e11baf9740..09b95c0ff8 100644 --- a/collects/handin-client/handin-multi.ss +++ b/collects/handin-client/handin-multi.ss @@ -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 #"<<>>")