make all files terminate with a newline
svn: r8786
This commit is contained in:
parent
c2f1773ea2
commit
bb34f747b6
|
@ -411,4 +411,3 @@
|
|||
(path->complete-path file)))))
|
||||
|
||||
(provide parse-a60-file parse-a60-port))
|
||||
|
|
@ -167,4 +167,3 @@
|
|||
[($ a60:compound statements)
|
||||
(flatten/label-block null statements ->stx)]
|
||||
[else stmt])))
|
||||
|
|
@ -189,4 +189,3 @@
|
|||
(define-signature err^ (err? err-msg err-src))
|
||||
|
||||
)
|
||||
|
|
@ -52,6 +52,3 @@
|
|||
p dest)
|
||||
#f)))))
|
||||
|
||||
|
||||
|
||||
|
|
@ -51,7 +51,3 @@
|
|||
(provide (all-defined)
|
||||
(all-from "fred.ss")
|
||||
(all-from mzlib/class)))
|
||||
|
||||
|
||||
|
||||
|
|
@ -1,2 +1 @@
|
|||
|
||||
|
|
@ -309,5 +309,3 @@
|
|||
(add1 (cdr move))))
|
||||
|
||||
(go))))
|
||||
|
||||
|
|
@ -12,4 +12,3 @@
|
|||
#f #f)))))
|
||||
(javac "Posn.java")
|
||||
))))
|
||||
|
|
@ -50,4 +50,3 @@
|
|||
|
||||
|
||||
)
|
||||
|
|
@ -44,4 +44,3 @@
|
|||
))
|
||||
|
||||
(define-signature draw^ extends core-draw^ ()))
|
||||
|
|
@ -5,5 +5,3 @@
|
|||
|
||||
(define debugger-language<%>
|
||||
(interface () debugger:supported?)))
|
||||
|
||||
|
|
@ -32,5 +32,3 @@
|
|||
(define menu-item-container<%>
|
||||
(interface ()
|
||||
get-items on-demand)))
|
||||
|
||||
|
|
@ -9,5 +9,3 @@
|
|||
#'(begin
|
||||
(provide name ...)
|
||||
(define name (make-parameter val)) ...)])))
|
||||
|
||||
|
|
@ -2070,4 +2070,3 @@
|
|||
(define raise-error (make-error-pass build-info-location))
|
||||
|
||||
)
|
||||
|
|
@ -60,4 +60,3 @@
|
|||
(define (Double-getNaN-native) +nan.0)
|
||||
|
||||
)
|
||||
|
|
@ -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)))))))
|
||||
)
|
||||
|
||||
|
|
@ -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)
|
||||
)
|
||||
|
|
@ -35,5 +35,3 @@
|
|||
string-normalize-nfkd
|
||||
string-normalize-nfc
|
||||
string-normalize-nfkc)
|
||||
|
||||
|
|
@ -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))))))))))))
|
||||
|
||||
|
||||
|
||||
|
|
@ -45,4 +45,3 @@
|
|||
(cons (recur) (loop))]
|
||||
[else (cons (string c)
|
||||
(loop))]))))))))
|
||||
|
|
@ -81,5 +81,3 @@
|
|||
(make-flow (list obj)))
|
||||
l)
|
||||
l)))))))
|
||||
|
||||
|
|
@ -5,5 +5,3 @@
|
|||
|
||||
(define file-to-load (make-parameter #f))
|
||||
(define trust-me? (make-parameter #t)))
|
||||
|
||||
|
|
@ -673,5 +673,3 @@
|
|||
(include "arlib.scm")
|
||||
|
||||
)
|
||||
|
||||
|
|
@ -132,4 +132,3 @@
|
|||
(lambda #,slot-names
|
||||
(proc #,@names)))))]))
|
||||
)
|
||||
|
|
@ -59,4 +59,3 @@
|
|||
(values start-1 end-1
|
||||
start-2 end-2)))
|
||||
)
|
||||
|
|
@ -211,4 +211,3 @@
|
|||
(hash-table-fold hash-table (lambda (key val acc) (cons val acc)) '()))
|
||||
|
||||
)
|
||||
|
|
@ -12,4 +12,3 @@
|
|||
(rename srfi-let* let*)
|
||||
(rename srfi-letrec letrec)
|
||||
(rename srfi-letrec letrec*)))
|
||||
|
|
@ -169,5 +169,3 @@
|
|||
annotated))
|
||||
|
||||
(top-level-annotate stx)))
|
||||
|
||||
|
|
@ -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))))
|
||||
|
||||
|
|
@ -11,6 +11,3 @@
|
|||
|
||||
(define (generate-expand-context)
|
||||
(build-expand-context (gensym 'internal-define))))
|
||||
|
||||
|
||||
|
|
@ -6,6 +6,3 @@
|
|||
(parameterize ([current-load-relative-directory dir])
|
||||
(let ([s (read-syntax)])
|
||||
(time (compile s)))))))
|
||||
|
||||
|
||||
|
|
@ -59,6 +59,3 @@
|
|||
'("GGT" "GGTA" "GGTATT" "GGTATTTTAATT" "GGTATTTTAATTTATAGT"))
|
||||
|
||||
)
|
||||
|
||||
|
||||
|
|
@ -573,4 +573,3 @@
|
|||
"Calling check in many ways")
|
||||
|
||||
(report-test-results))
|
||||
|
|
@ -19,8 +19,3 @@
|
|||
number
|
||||
(string->number (bytes->string/latin-1 number)))))
|
||||
(super-new)))))
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
@ -22,5 +22,3 @@
|
|||
(write-byte 0 o)
|
||||
(close-input-port i)
|
||||
(close-output-port o)))))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user