make all files terminate with a newline

svn: r8786
This commit is contained in:
Eli Barzilay 2008-02-24 21:27:36 +00:00
parent c2f1773ea2
commit bb34f747b6
499 changed files with 471 additions and 536 deletions

View File

@ -411,4 +411,3 @@
(path->complete-path file)))))
(provide parse-a60-file parse-a60-port))

View File

@ -167,4 +167,3 @@
[($ a60:compound statements)
(flatten/label-block null statements ->stx)]
[else stmt])))

View File

@ -189,4 +189,3 @@
(define-signature err^ (err? err-msg err-src))
)

View File

@ -52,6 +52,3 @@
p dest)
#f)))))

View File

@ -51,7 +51,3 @@
(provide (all-defined)
(all-from "fred.ss")
(all-from mzlib/class)))

View File

@ -1,2 +1 @@

View File

@ -309,5 +309,3 @@
(add1 (cdr move))))
(go))))

View File

@ -12,4 +12,3 @@
#f #f)))))
(javac "Posn.java")
))))

View File

@ -50,4 +50,3 @@
)

View File

@ -44,4 +44,3 @@
))
(define-signature draw^ extends core-draw^ ()))

View File

@ -5,5 +5,3 @@
(define debugger-language<%>
(interface () debugger:supported?)))

View File

@ -32,5 +32,3 @@
(define menu-item-container<%>
(interface ()
get-items on-demand)))

View File

@ -9,5 +9,3 @@
#'(begin
(provide name ...)
(define name (make-parameter val)) ...)])))

View File

@ -2070,4 +2070,3 @@
(define raise-error (make-error-pass build-info-location))
)

View File

@ -60,4 +60,3 @@
(define (Double-getNaN-native) +nan.0)
)

View File

@ -2563,5 +2563,3 @@
((beginner?) (parse-error "Fields may not be set in this position, only expressions are permitted here" ps end))
(else (parse-error "Assignment is not permitted in this position. Only expressions are permitted here" ps end)))))))
)

View File

@ -255,4 +255,3 @@
(provide interact-test execute-test interact-test-java-expected file-test run-test
report-test-results prepare-for-tests report-expected-error-messages)
)

View File

@ -35,5 +35,3 @@
string-normalize-nfkd
string-normalize-nfc
string-normalize-nfkc)

View File

@ -23,7 +23,3 @@
(string->symbol (format "~a:~a:~a" s l c))
(let ([p (syntax-position stx)])
(string->symbol (format "~a::~a" s p))))))))))))

View File

@ -45,4 +45,3 @@
(cons (recur) (loop))]
[else (cons (string c)
(loop))]))))))))

View File

@ -81,5 +81,3 @@
(make-flow (list obj)))
l)
l)))))))

View File

@ -5,5 +5,3 @@
(define file-to-load (make-parameter #f))
(define trust-me? (make-parameter #t)))

View File

@ -673,5 +673,3 @@
(include "arlib.scm")
)

View File

@ -132,4 +132,3 @@
(lambda #,slot-names
(proc #,@names)))))]))
)

View File

@ -59,4 +59,3 @@
(values start-1 end-1
start-2 end-2)))
)

View File

@ -211,4 +211,3 @@
(hash-table-fold hash-table (lambda (key val acc) (cons val acc)) '()))
)

View File

@ -12,4 +12,3 @@
(rename srfi-let* let*)
(rename srfi-letrec letrec)
(rename srfi-letrec letrec*)))

View File

@ -169,5 +169,3 @@
annotated))
(top-level-annotate stx)))

View File

@ -100,5 +100,3 @@
; send-output-to-debugger-window : (string text:basic% -> void)
(define (send-output-to-debugger-window str text)
(send text insert str (send text last-position))))

View File

@ -11,6 +11,3 @@
(define (generate-expand-context)
(build-expand-context (gensym 'internal-define))))

View File

@ -6,6 +6,3 @@
(parameterize ([current-load-relative-directory dir])
(let ([s (read-syntax)])
(time (compile s)))))))

View File

@ -59,6 +59,3 @@
'("GGT" "GGTA" "GGTATT" "GGTATTTTAATT" "GGTATTTTAATTTATAGT"))
)

View File

@ -573,4 +573,3 @@
"Calling check in many ways")
(report-test-results))

View File

@ -19,8 +19,3 @@
number
(string->number (bytes->string/latin-1 number)))))
(super-new)))))

View File

@ -22,5 +22,3 @@
(write-byte 0 o)
(close-input-port i)
(close-output-port o)))))