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

added some defaults

Browse Source 
svn: r3064
This commit is contained in:
Eli Barzilay 2006-05-25 19:11:37 +00:00
parent 479db765e7
commit eef32debfb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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