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

A long overdue scan to eliminate files without terminating newlines.

Browse Source 
(DrRacket should really do that.)

original commit: 40124a0619
This commit is contained in:
Eli Barzilay 2011-06-28 02:01:41 -04:00
parent 1ca7b10829
commit f90858601d
15 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/demodularizer/alpha.rkt
View File

@ -16,4 +16,4 @@
(prefix-toplevels p))]))
(provide/contract
[alpha-vary-ctop (compilation-top? . -> . compilation-top?)])
[alpha-vary-ctop (compilation-top? . -> . compilation-top?)])

2
collects/compiler/demodularizer/batch.rkt
View File

@ -110,4 +110,4 @@ Here's the idea:
[("-e" "--exclude-modules") mod
"Exclude a module from being batched"
(current-excluded-modules (set-add (current-excluded-modules) mod))]
#:args (filename) (main filename))
#:args (filename) (main filename))

2
collects/compiler/demodularizer/gc-toplevels.rkt
View File

@ -275,4 +275,4 @@
first-update)
(provide/contract
[gc-toplevels (compilation-top? . -> . compilation-top?)])
[gc-toplevels (compilation-top? . -> . compilation-top?)])

2
collects/compiler/demodularizer/merge.rkt
View File

@ -170,4 +170,4 @@
(provide/contract
[merge-compilation-top (-> get-modvar-rewrite/c
compilation-top?
compilation-top?)])
compilation-top?)])

2
collects/compiler/demodularizer/module.rkt
View File

@ -31,4 +31,4 @@
#t))]))
(provide/contract
[wrap-in-kernel-module (symbol? symbol? lang-info/c module-path-index? compilation-top? . -> . compilation-top?)])
[wrap-in-kernel-module (symbol? symbol? lang-info/c module-path-index? compilation-top? . -> . compilation-top?)])

2
collects/compiler/demodularizer/mpi.rkt
View File

@ -28,4 +28,4 @@
[MODULE-PATHS (parameter/c (or/c false/c hash?))]
[current-module-path (parameter/c path-string?)]
[mpi->path! (module-path-index? . -> . (or/c symbol? path?))]
[mpi->path* (module-path-index? . -> . (or/c symbol? path?))])
[mpi->path* (module-path-index? . -> . (or/c symbol? path?))])

2
collects/compiler/demodularizer/nodep.rkt
View File

@ -186,4 +186,4 @@
[get-modvar-rewrite/c contract?]
[current-excluded-modules (parameter/c set?)]
[nodep-file (-> path-string?
(values compilation-top? lang-info/c module-path-index? get-modvar-rewrite/c))])
(values compilation-top? lang-info/c module-path-index? get-modvar-rewrite/c))])

2
collects/compiler/demodularizer/util.rkt
View File

@ -77,4 +77,4 @@
(values (unconstrained-domain-> any/c)
(unconstrained-domain-> any/c)))]
[lang-info/c contract?]
[build-compiled-path ((or/c path-string? (symbols 'relative) false/c) path-string? . -> . (or/c path-string? (symbols 'same 'up)))])
[build-compiled-path ((or/c path-string? (symbols 'relative) false/c) path-string? . -> . (or/c path-string? (symbols 'same 'up)))])

2
collects/tests/compiler/demodularizer/demod-test.rkt
View File

@ -46,4 +46,4 @@
(define ip (build-path tests i))
(when (modular-program? ip)
(printf "Checking ~a\n" ip)
(test-on-program (path->string ip)))))
(test-on-program (path->string ip)))))

2
collects/tests/compiler/demodularizer/tests/kernel-5.rkt
View File

@ -2,4 +2,4 @@
(#%require racket/private/map)
(define-values (id) (λ (x) x))
(define-values (xs) (list 1 2 3 4 5))
(map id (map id xs)))
(map id (map id xs)))

2
collects/tests/compiler/demodularizer/tests/racket-5.rkt
View File

@ -1,2 +1,2 @@
#lang racket
5
5

2
collects/tests/compiler/regression.rkt
View File

@ -14,4 +14,4 @@
(set-cookie name val)))
(test
(cookie? (make-cookie "name" "value")))
(cookie? (make-cookie "name" "value")))

10
collects/tests/compiler/zo-exs.rkt
View File

@ -103,14 +103,14 @@
(list (current-directory))))
(roundtrip
(compilation-top
0
(compilation-top
0
(prefix 0 empty empty)
(cons #hash()
#hash())))
(roundtrip
(compilation-top
0
(compilation-top
0
(prefix 0 empty empty)
#hash())))
#hash())))

2
collects/tests/compiler/zo-test-util.rkt
View File

@ -9,4 +9,4 @@
[struct failure ([phase symbol?]
[serious? boolean?]
[msg string?])]
[struct success ([phase symbol?])])
[struct success ([phase symbol?])])

2
collects/tests/compiler/zo-test-worker.rkt
View File

@ -267,4 +267,4 @@
(command-line #:program "zo-test-worker"
#:args (file)
(run-test file))
(run-test file))