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

formatting

Browse Source 
svn: r11860
This commit is contained in:
Eli Barzilay 2008-09-24 20:38:57 +00:00
parent 6bb96f95b0
commit 95526fbc5a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/handin-server/checker.ss
View File

@ -180,8 +180,8 @@
(let-values ([(defs inters) (unpack-submission submission)])
(parameterize ([current-input-port
(if textualize?
(input-port->text-input-port (open-input-text-editor
defs 0 'end snip->text))
(input-port->text-input-port
(open-input-text-editor defs 0 'end snip->text))
(open-input-text-editor defs))]
[current-output-port (open-output-bytes)])
(input->process->output maxwidth textualize? untabify? bad-re)
@ -345,14 +345,15 @@
[keyvals '()]
[got null])
(define (get key . default)
(cond [(assq key keyvals) => (lambda (x) (set! got (cons x got)) (caddr x))]
(cond [(assq key keyvals)
=> (lambda (x) (set! got (cons x got)) (caddr x))]
[(pair? default) (car default)]
[else #f]))
(syntax-case stx ()
[(key val x ...)
(and (identifier? #'key)
(regexp-match? #rx"^:" (symbol->string (syntax-e #'key))))
(loop #'(x ...)
(loop #'(x ...)
(cons (list (syntax-e #'key) #'key #'val) keyvals)
(cons (syntax-e #'key) got))]
[(body ...)