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

Formatting.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-08-15 12:56:28 -04:00
parent 93e96fbabb
commit 3b9fcdea92
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/tests/racket/benchmarks/common/typed/wrapper.rkt
View File

@ -1,23 +1,23 @@
#lang racket/base #lang racket/base
(provide (rename-out (module-begin #%module-begin))) (provide (rename-out (module-begin #%module-begin)))
(require (prefix-in ts: typed/scheme/base) (require (prefix-in ts: typed/scheme/base)
(for-syntax racket/base (prefix-in r: typed-scheme/typed-reader)) (for-syntax racket/base (prefix-in r: typed-scheme/typed-reader))
racket/include typed/scheme/base) racket/include typed/scheme/base)
(define-syntax (module-begin stx) (define-syntax (module-begin stx)
(let* ([name (symbol->string (syntax-property stx 'enclosing-module-name))] (let* ([name (symbol->string (syntax-property stx 'enclosing-module-name))]
[non-opt-re #rx"-non-optimizing"] [non-opt-re #rx"-non-optimizing"]
[opt-re #rx"-optimizing"] [opt-re #rx"-optimizing"]
[opt? (not (regexp-match non-opt-re name))] [opt? (not (regexp-match non-opt-re name))]
[base-name (substring name 0 [base-name (substring name 0
(caar (regexp-match-positions (caar (regexp-match-positions
(if opt? opt-re non-opt-re) (if opt? opt-re non-opt-re)
name)))] name)))]
[option (if opt? '() (list #'#:no-optimize))] [option (if opt? '() (list #'#:no-optimize))]
[fname (format "~a.rktl" base-name)]) [fname (format "~a.rktl" base-name)])
#`(ts:#%module-begin #`(ts:#%module-begin
#,@option #,@option
(ts:require/typed (ts:require/typed
"../wrap-common.rkt" "../wrap-common.rkt"
[copy-input (-> Void)] [copy-input (-> Void)]
[remove-input (-> Void)]) [remove-input (-> Void)])