From 3b9fcdea9276f1220285db1ef5259b37e6baa7c4 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 15 Aug 2011 12:56:28 -0400 Subject: [PATCH] Formatting. --- .../benchmarks/common/typed/wrapper.rkt | 26 +++++++++---------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/collects/tests/racket/benchmarks/common/typed/wrapper.rkt b/collects/tests/racket/benchmarks/common/typed/wrapper.rkt index bceca43608..d12118f181 100644 --- a/collects/tests/racket/benchmarks/common/typed/wrapper.rkt +++ b/collects/tests/racket/benchmarks/common/typed/wrapper.rkt @@ -1,23 +1,23 @@ #lang racket/base (provide (rename-out (module-begin #%module-begin))) (require (prefix-in ts: typed/scheme/base) - (for-syntax racket/base (prefix-in r: typed-scheme/typed-reader)) - racket/include typed/scheme/base) + (for-syntax racket/base (prefix-in r: typed-scheme/typed-reader)) + racket/include typed/scheme/base) (define-syntax (module-begin stx) (let* ([name (symbol->string (syntax-property stx 'enclosing-module-name))] - [non-opt-re #rx"-non-optimizing"] - [opt-re #rx"-optimizing"] - [opt? (not (regexp-match non-opt-re name))] - [base-name (substring name 0 - (caar (regexp-match-positions - (if opt? opt-re non-opt-re) - name)))] - [option (if opt? '() (list #'#:no-optimize))] - [fname (format "~a.rktl" base-name)]) + [non-opt-re #rx"-non-optimizing"] + [opt-re #rx"-optimizing"] + [opt? (not (regexp-match non-opt-re name))] + [base-name (substring name 0 + (caar (regexp-match-positions + (if opt? opt-re non-opt-re) + name)))] + [option (if opt? '() (list #'#:no-optimize))] + [fname (format "~a.rktl" base-name)]) #`(ts:#%module-begin - #,@option - (ts:require/typed + #,@option + (ts:require/typed "../wrap-common.rkt" [copy-input (-> Void)] [remove-input (-> Void)])