diff --git a/collects/handin-client/handin-multi.ss b/collects/handin-client/handin-multi.ss index bfffaf544a..7b36b68a65 100644 --- a/collects/handin-client/handin-multi.ss +++ b/collects/handin-client/handin-multi.ss @@ -6,10 +6,12 @@ (define handin-name (#%info-lookup 'name)) (define this-collection (#%info-lookup 'collection)) - (define web-address (#%info-lookup 'web-address)) - (define selection-mode (#%info-lookup 'selection-mode)) + (define web-address (#%info-lookup 'web-address + (lambda () "http://www.plt-scheme.org"))) + (define selection-mode (#%info-lookup 'selection-mode + (lambda () 'extended))) (define selection-defaults - (let ([sd (#%info-lookup 'selection-default)]) + (let ([sd (#%info-lookup 'selection-default (lambda () '("*.scm" "*.ss")))]) (if (string? sd) (list sd) sd))) (define (make-key sfx) (string->symbol (format "~a:~a" (string-downcase this-collection) sfx)))