From 95526fbc5a8de9580bb974746ba7c4880e276d2a Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 24 Sep 2008 20:38:57 +0000 Subject: [PATCH] formatting svn: r11860 --- collects/handin-server/checker.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/handin-server/checker.ss b/collects/handin-server/checker.ss index 38265ff6e5..754f1f329d 100644 --- a/collects/handin-server/checker.ss +++ b/collects/handin-server/checker.ss @@ -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 ...)