make all files terminate with a newline

svn: r8786

collects/algol60/parse.ss

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

collects/algol60/simplify.ss

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

collects/browser/private/option-snip.ss

@@ -198,4 +198,4 @@
 
       (super-instantiate ())
       (set-flags (cons 'handles-events (get-flags)))
-      (set-count 1))))
+      (set-count 1))))

collects/browser/private/sig.ss

@@ -54,4 +54,4 @@
      btree-shift!
      
      btree-for-each
-     btree-map)))
+     btree-map)))

collects/combinator-parser/combinator-unit.ss

@@ -8,4 +8,4 @@
            error-format-parameters^ language-format-parameters^ language-dictionary^
            terminals)
   
-  )
+  )

collects/combinator-parser/doc.txt

@@ -130,4 +130,4 @@ The _language-dictionary^_ requires three names
   misscap: string string -> boolean - 
      check the capitalization of the second arg against the first
   missclass: string string -> boolean - 
-     check if the second arg names a correct token kind
+     check if the second arg names a correct token kind

collects/combinator-parser/examples/combinator-example.ss

@@ -55,4 +55,4 @@
   (define parse-prog (parser expr))
   )
   
-  )
+  )

collects/combinator-parser/private-combinator/combinator-parser.scm

@@ -157,4 +157,4 @@
     ((combinator-parser-forms^ parser^ out^) combinator-parser@ error-format-parameters^ language-format-parameters^
                             language-dictionary^))
            
-  )
+  )

collects/combinator-parser/private-combinator/combinator.scm

@@ -766,4 +766,4 @@
         r*))
     
     )
-  )
+  )

collects/combinator-parser/private-combinator/parser-sigs.ss

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

collects/compiler/private/macfw.ss

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

collects/drscheme/installer.ss

@@ -18,4 +18,4 @@
        (mred-program-launcher-path "DrScheme")
        (cons
         `(exe-name . "DrScheme")
-        (build-aux-from-path (build-path (collection-path "drscheme") "drscheme")))))))
+        (build-aux-from-path (build-path (collection-path "drscheme") "drscheme")))))))

collects/drscheme/private/auto-language.ss

@@ -57,4 +57,4 @@
     (let* ([tp (open-input-text-editor text 0 'end (lambda (s) s) text #t)]
            [l1 (read-line tp)])
       (and (string? l1)
-           (regexp-match #rx"#lang .*$" l1)))))
+           (regexp-match #rx"#lang .*$" l1)))))

collects/drscheme/private/bindings-browser.ss

@@ -302,4 +302,4 @@ Marshalling (and hence the 'read' method of the snipclass omitted for fast proto
 ;  (define ec (make-object editor-canvas% f t))
 ;  (append-editor-operation-menu-items edit-menu)
 ;  (send t insert es)
-;  (send f show #t))
+;  (send f show #t))

collects/drscheme/private/font.ss

@@ -210,4 +210,4 @@
            (send options-panel stretchable-height #f)
            (send options-panel set-alignment 'center 'top)
            (send text lock #t)
-           main))))))
+           main))))))

collects/drscheme/private/insert-large-letters.ss

@@ -169,4 +169,4 @@
   (send bdc set-bitmap #f)
   bitmap)
 
-;(make-large-letters-dialog ";" #\; #f)
+;(make-large-letters-dialog ";" #\; #f)

collects/drscheme/private/launcher-bootstrap.ss

@@ -52,4 +52,4 @@
   ;; safe to do this earlier?
   (delete-file init-code-tmp-filename)
   
-  (load program-filename))
+  (load program-filename))

collects/drscheme/syncheck.ss

@@ -2635,4 +2635,4 @@ If the namespace does not, they are colored the unbound color.
     (drscheme:language:register-capability 'drscheme:check-syntax-button (flat-contract boolean?) #t)
     (drscheme:get/extend:extend-definitions-text make-syncheck-text%)
     (drscheme:get/extend:extend-unit-frame unit-frame-mixin #f)
-    (drscheme:get/extend:extend-tab tab-mixin)))
+    (drscheme:get/extend:extend-tab tab-mixin)))

collects/dynext/private/macinc.ss

@@ -61,4 +61,4 @@
     (unless (rename-file-or-directory ext-out dest-file)
       (unless (copy-file ext-out dest-file)
       (error name "couldn't move output to destination: ~a" 
-      	     output-file))))
+      	     output-file))))

collects/embedded-gui/private/alignment-helpers.ss

@@ -71,4 +71,4 @@
   (equal? (insert-after 0 '(5 -5 6 -5) -5)
           '(5 -5 0 6 -5))
   |#
-  )
+  )

collects/embedded-gui/private/cue-text.ss

@@ -66,4 +66,4 @@
   (send e insert s)
   (send f show #t)
   |#
-  )
+  )

collects/embedded-gui/private/embedded-message.ss

@@ -16,4 +16,4 @@
        (snip (let ([s (make-object string-snip% label)])
 	       (send s set-style control-style)
 	       s)))))
-  )
+  )

collects/embedded-gui/private/interface.ss

@@ -102,4 +102,4 @@
       ;; get or set the stretchablity of the pasteboards height
       stretchable-height
       ))
-  )
+  )

collects/embedded-gui/private/lines.ss

@@ -149,4 +149,4 @@
        (snip (make-object string-snip% "Three"))
        (parent a3))
   |#
-  )
+  )

collects/embedded-gui/private/locked-pasteboard.ss

@@ -28,4 +28,4 @@
       (define/override (get-dragable) false)
       (define/override (get-selection-visible) false)
       (super-new)))
-  )
+  )

collects/embedded-gui/private/snip-wrapper.ss

@@ -92,4 +92,4 @@
       (super-new)
       (send parent add-child this)
       (show/hide (and show? (send parent is-shown?)))))
-  )
+  )

collects/embedded-gui/private/tests/peer-stretchables.ss

@@ -22,4 +22,4 @@
       [ses1-mw (send ses1 get-min-width)])
   (send e insert "sdflsdfnsknbskdlf")
   (send e erase)
-  (equal? ses1-mw (send ses1 get-min-width)))
+  (equal? ses1-mw (send ses1 get-min-width)))

collects/embedded-gui/private/tests/stretching-in-alignment.ss

@@ -27,4 +27,4 @@
     (add (make-object string-snip% "This snip is very long")))
   (send e insert es)
   (send f show true)
-  )
+  )

collects/embedded-gui/private/tests/test-alignment.ss

@@ -273,4 +273,4 @@
  los-equal?
  (align 'horizontal 0 0
         (list (make-rect (make-dim 0 4 #f) (make-dim 0 5 #f))))
- (list (make-rect (make-dim 0 4 #f) (make-dim 0 5 #f))))
+ (list (make-rect (make-dim 0 4 #f) (make-dim 0 5 #f))))

collects/embedded-gui/private/tests/test-case-box.ss

@@ -172,4 +172,4 @@
 (define c (new editor-canvas% (parent f) (editor e)))
 (define t (new test-case-box%))
 (send f show #t)
-(send e insert t)
+(send e insert t)

collects/embedded-gui/private/tests/test-macro.ss

@@ -15,4 +15,4 @@
                 actual)])
          (and (not (exn? result))
               (test result expected))))))
-  )
+  )

collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss

@@ -69,4 +69,4 @@
      (parent actual-pane))
 (send pb lock-alignment #f)
 ;(collapse #t)
-;(collapse #f)
+;(collapse #f)

collects/embedded-gui/private/tests/test-show-feature.ss

@@ -258,4 +258,4 @@
     (send a5 show #f)
     (let ([c (send a1 get-min-height)])
       (values (equal? a c)
-              (equal? a (/ b 2))))))
+              (equal? a (/ b 2))))))

collects/eopl/private/sllboth.ss

@@ -68,4 +68,4 @@
 	  (and (pair? v)
 	       (eq? (car v) 'not)
 	       (pair? (cdr v))
-	       (char? (cadr v)))))))
+	       (char? (cadr v)))))))

collects/framework/decorated-editor-snip.ss

@@ -226,4 +226,4 @@
         (let ([snip (make-snip stream-in)])
           (send (send snip get-editor) read-from-file stream-in #f)
           snip))
-      (super-new))))
+      (super-new))))

collects/framework/framework-sig.ss

@@ -1,3 +1,3 @@
 (module framework-sig mzscheme
   (require "private/sig.ss")
-  (provide framework^))
+  (provide framework^))

collects/framework/private/encode-decode.ss

@@ -103,4 +103,4 @@
              (map (λ (x) (symbol->string (syntax-e x)))
                   (syntax->list (syntax (arg ...)))))))
          
-         (datum->syntax-object stx decoded stx))])))
+         (datum->syntax-object stx decoded stx))])))

collects/frtime/base-gm.ss

@@ -52,4 +52,4 @@
     (hash-for-each from-hash
                    (lambda (key val) (hash-put! to-hash key val))))
 
-  )
+  )

collects/frtime/demos/growing-points.ss

@@ -48,4 +48,4 @@
 (define growing-points (build-list (sqr GRID-SIZE) create-growing-point))
 
 ;; Draw the growing points!
-(display-shapes growing-points)
+(display-shapes growing-points)

collects/frtime/demos/gui/aux-mixin-macros.ss

@@ -70,4 +70,4 @@
       [(_ src)
        src]))
   
-  (provide (all-defined)))
+  (provide (all-defined)))

collects/frtime/demos/gui/demo/bindec.ss

@@ -41,4 +41,4 @@
                                (value-set 
                                 (changes (place-num->bool i sld)))))))])
 
-(send (current-widget-parent) show #t)
+(send (current-widget-parent) show #t)

collects/frtime/demos/gui/demo/instr.ss

@@ -151,4 +151,4 @@
                           
 
 ;; SHOW THE FRAME
-(send my-frame show #t)
+(send my-frame show #t)

collects/frtime/demos/gui/mixin-macros.ss

@@ -57,4 +57,4 @@
 
   
   (provide events->callbacks
-           callbacks->args-evts))
+           callbacks->args-evts))

collects/frtime/demos/gui/simple.ss

@@ -50,8 +50,4 @@
   
   (provide (all-defined)
            (all-from "fred.ss")
-           (all-from mzlib/class))) 
+           (all-from mzlib/class)))
-            
-            
-            
-          

collects/frtime/demos/mouse.ss

@@ -7,4 +7,4 @@
                      (format "(~a, ~a)"
                              (posn-x mouse-pos)
                              (posn-y mouse-pos))
-                     "black")))
+                     "black")))

collects/frtime/demos/needles.ss

@@ -55,4 +55,4 @@
 (define needles (build-list (sqr GRID-SIZE) create-needle))
 
 ;; Draw the needles!
-(display-shapes needles)
+(display-shapes needles)

collects/frtime/demos/spreadsheet/data-synthesis.ss

@@ -69,4 +69,4 @@
 
 (provide (all-defined))
   
-  )
+  )

collects/frtime/demos/spreadsheet/preprocessor2.ss

@@ -550,4 +550,4 @@
   
   (provide process unprocess)
   
-  )
+  )

collects/frtime/demos/spreadsheet/spread.ss

@@ -633,4 +633,4 @@
     (instantiate ss-canvas% (frame) (style (list 'hscroll 'vscroll))))
   
   (send frame show #t)
-  (send canvas focus))
+  (send canvas focus))

collects/frtime/demos/spreadsheet/ss-canvas.ss

@@ -162,4 +162,4 @@
   (define-struct animation (pic pos))
   
   (provide (all-defined))
-  )
+  )

collects/frtime/demos/spreadsheet/ss-database.ss

@@ -71,4 +71,4 @@
                                bindings))
   
   (provide make-accessor
-           make-accessor/initial-bindings))
+           make-accessor/initial-bindings))

collects/frtime/erl.ss

@@ -390,4 +390,4 @@
              [_ (recur)])))
 
 (define (mybox) (hash-table-get mailboxes (self)))
-|#
+|#

collects/frtime/frp-core.ss

@@ -839,4 +839,4 @@
   
   (define dummy (proc->signal void)) 
   
-  (provide (all-defined)))
+  (provide (all-defined)))

collects/frtime/main.ss

@@ -1,2 +1,2 @@
 (module main "frtime.ss"
-  (provide (all-from "frtime.ss")))
+  (provide (all-from "frtime.ss")))

collects/games/cards/make-cards.ss

@@ -95,4 +95,4 @@
 		   (lambda ()
 		     (if back-bm 
 			 (make-dim back)
-			 dim-back))))))
+			 dim-back))))))

collects/games/cards/utils.ss

@@ -23,4 +23,4 @@
 		(loop (cdr a) b (cons (car a) l))]
 	       [else
 		(loop a (cdr b) (cons (car b) l))]))
-	    (sub1 c)))))))
+	    (sub1 c)))))))

collects/games/checkers/honu-bitmaps.ss

@@ -424,4 +424,4 @@
                   (callback (lambda (x y) (set! dy (- dy 1)) (send c refresh)))))
   (send f show #t)  
 |#
-  )
+  )

collects/games/doors/utils.ss

@@ -194,4 +194,4 @@
               (with-light just-shadow? (lambda ()
                                          (gl-scale 0.5 0.5 0.5)
                                          (gl-call-list dl))))
-            data))))
+            data))))

collects/games/lights-out/board.ss

@@ -141,4 +141,4 @@
 	    (sim-click (car choice-coordinates)
 		       (cdr choice-coordinates))
 	    (loop (- clicks 1)))))
-      board)))
+      board)))

collects/games/lights-out/boards.ss

@@ -61,4 +61,4 @@
          #(o o o x o)
          #(o o x o o)
          #(o x o o o)
-         #(x o o o o))))))
+         #(x o o o o))))))

collects/games/loa/main.ss

@@ -1,2 +1 @@
 
-  

collects/games/loa/run.ss

@@ -42,4 +42,4 @@ one. I added a note on the difference to the docs.
   (export))
  mred^)
 
-(yield (make-semaphore))
+(yield (make-semaphore))

collects/games/loa/sig.ss

@@ -21,4 +21,4 @@
 
 (define-signature loa:move-import^
   (get-color ; : (board num num -> (union 'black 'white #f))
-   ))
+   ))

collects/games/loa/utils.ss

@@ -5,4 +5,4 @@
     (let loop ([n (vector-length v)])
       (unless (zero? n)
 	(f (vector-ref v (- n 1)))
-	(loop (- n 1))))))
+	(loop (- n 1))))))

collects/games/paint-by-numbers/main.ss

@@ -517,4 +517,4 @@
   (player)
   ;(editor #f)
 
-  (yield (make-semaphore)))
+  (yield (make-semaphore)))

collects/games/paint-by-numbers/raw-problems/build-final.ss

@@ -68,4 +68,4 @@ in ...
 (copy-file (build-path 'up "solution-sets" "directory")
            (build-path 'up "problems" "directory"))
 
-(for-each shrink-file (call-with-input-file (build-path 'up "problems" "directory") read))
+(for-each shrink-file (call-with-input-file (build-path 'up "problems" "directory") read))

collects/games/paint-by-numbers/raw-problems/build-hattori.ss

@@ -172,4 +172,4 @@ string=? ; exec mred -qmvr $0
 	  (loop (+ n 1))))
       (printf ")")))
   'text
-  'truncate)
+  'truncate)

collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss

@@ -88,4 +88,4 @@ string=? ; exec mred -mvgqr $0 "$@"
 (define cols (map on-off->blocks (transpose on-off-lists)))
 
 (write (list image rows cols))
-(newline)
+(newline)

collects/games/paint-by-numbers/raw-problems/raw-hattori.ss

@@ -8713,4 +8713,4 @@
   (x x x x x o o o o o o o o o o x x x x x x x o x x)
   (o x x x o o o o o o o o o o o x x x x o o o o o o)))
 
-)
+)

collects/games/parcheesi/admin.ss

@@ -171,4 +171,4 @@
           (if (and doubles? (board-all-in? board color))
               (values doubles? (list die1 die2 (- 7 die1) (- 7 die2)))
               (values doubles? (list die1 die2)))))
-      (super-new))))
+      (super-new))))

collects/games/parcheesi/board.ss

@@ -345,4 +345,4 @@
     (unless (= i 16)
       (unless (= i (pawn-index (vector-ref all-pawns i)))
         (error 'mismatch "~s ~s" i (vector-ref all-pawns i)))
-      (loop (+ i 1)))))
+      (loop (+ i 1)))))

collects/games/parcheesi/die.ss

@@ -71,4 +71,4 @@
       (min-width 48)
       (min-height 48)
       (stretchable-width #f)
-      (stretchable-height #f))))
+      (stretchable-height #f))))

collects/games/parcheesi/test.ss

@@ -90,4 +90,4 @@
            [else (loop (cdr lst)
                        (list* (format "~e" (car lst))
                               " "
-                              ss))]))])))
+                              ss))]))])))

collects/games/pousse/robot.ss

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

collects/graphics/graphics.ss

@@ -11,4 +11,4 @@
     (export graphics^ graphics:posn^)
     (link standard-mred@ graphics@))
   
-  (define-values/invoke-unit/infer graphics+mred@))
+  (define-values/invoke-unit/infer graphics+mred@))

collects/graphics/turtle-examples.ss

@@ -307,4 +307,4 @@
       (tprompt
        (spaced-turtles gaps)
        (turn/radians (/ pi 2))
-       (erase (* 4 (expt 2 lines)))))))
+       (erase (* 4 (expt 2 lines)))))))

collects/graphics/turtle-test.ss

@@ -42,4 +42,4 @@
   
   (make-object grow-box-spacer-pane% frame)	  
   
-  (send frame show #t))
+  (send frame show #t))

collects/graphics/turtles.ss

@@ -12,4 +12,4 @@
     (export turtle^)
     (link standard-mred@ turtle@))
   
-  (define-values/invoke-unit/infer turtle+mred@))
+  (define-values/invoke-unit/infer turtle+mred@))

collects/graphics/value-turtles-examples.ss

@@ -103,4 +103,4 @@
        (/ pi 12)
        (radial-turtles
         4
-        turtles)))))
+        turtles)))))

collects/graphics/value-turtles-test.ss

@@ -33,4 +33,4 @@
   (test (draw 20 (turn 90 (spaced-turtles 5 (turtles 150 150 10 75 0)))))
   (test (spokes (turtles 200 200)))
   (test (spyro-gyra (turtles 200 200)))
-  (test (neato (turtles 400 400))))
+  (test (neato (turtles 400 400))))

collects/gui-debugger/load-sandbox.ss

@@ -79,4 +79,4 @@
         (values p filename))))
   
   
-)
+)

collects/htdch/Examples/draw-multiple-worlds.ss

@@ -33,4 +33,4 @@ class Example {
   boolean tst1 = sw1.go();
   boolean tst2 = sw2.go();
   String result = "two worlds, green goes to bottom, red goes to center";
-}
+}

collects/htdch/Examples/draw-world-close-canvas.ss

@@ -36,4 +36,4 @@ class SW extends World {
 class Example {
   SW sw = new SW(10);
   boolean tst1 = sw.go();
-}
+}

collects/htdch/draw/pre-installer.ss

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

collects/htdch/graphics/rename.ss

@@ -48,6 +48,5 @@
     (let ((ke (send ke get-key-code)))
       (if (char? ke) (string ke) (symbol->string ke))))
 
-    
+
 )
-  

collects/htdp/HtDPv0/pingp-sig.ss

@@ -66,4 +66,4 @@
        ((open goS)
         change-speed
         change-wind))
-)
+)

collects/htdp/HtDPv0/protect-play.ss

@@ -27,4 +27,4 @@
                      (PINGP : pingpS))))
          (export (var (PINGP change-speed))
                  (var (PINGP change-wind))
-                 (open GO)))))
+                 (open GO)))))

collects/htdp/Test/dir.ss

@@ -20,4 +20,4 @@
 
 (check-expect (make-file 'a 1 2) (make-file 'a 1 2))
 
-(generate-report)
+(generate-report)

collects/htdp/Test/docs.ss

@@ -9,4 +9,4 @@
 
 (write-file
  (list '<p> 'hello 'world 'is 'the 'most 'stupid 'program 'in 'the 'world '</p>
-       "so let's test this" 'with "How's that"))
+       "so let's test this" 'with "How's that"))

collects/htdp/Test/draw.ss

@@ -80,4 +80,4 @@
 (load "tester.ss")
 (start 200 400)
 (test-error (draw-solid-line 'a 'b 'c))
-|#
+|#

collects/htdp/Test/elevator.ss

@@ -11,4 +11,4 @@
     ((and (eq? 'down x) (> y 1)) (- y 1))
     (else 2))) ; anything up
 
-(run next3)
+(run next3)

collects/htdp/Test/lkup-gui.ss

@@ -3,4 +3,4 @@
 
 (connect 
  (lambda (e b)
-   (view (control))))
+   (view (control))))

collects/htdp/Test/master.ss

@@ -20,4 +20,4 @@
 
 (master check-guess)
 ; (master 1)
-; (master first)
+; (master first)

collects/htdp/Test/mouse-event-test.ss

@@ -26,4 +26,4 @@
 
 (big-bang 500 500 0.1 (make-info 0 0 0 'none))
 (on-redraw draw-world)
-(on-mouse-event handle-mouse-event)
+(on-mouse-event handle-mouse-event)

collects/htdp/Test/protect.ss

@@ -110,4 +110,4 @@
 (define MIN-Y-SPEED 1)
 (define MAX-Y-SPEED 4)
 
-(test-go 'x)
+(test-go 'x)

collects/htdp/Test/rectangle.ss

@@ -9,4 +9,4 @@
 (show (list 
        (list BLUE BLUE BLUE BLUE)
        (list GREEN RED RED GREEN)
-       (list BLUE BLUE BLUE BLUE)))
+       (list BLUE BLUE BLUE BLUE)))

collects/htdp/Test/tester.ss

@@ -13,4 +13,4 @@
 #| Tests: 
 (not (test-error 1 2 3))
 (test-error (/ 1 0) 2 3)
-|#
+|#

collects/htdp/Test/world-mouse.ss

@@ -16,4 +16,4 @@
     m2))
 (big-bang 300 300 1 (list 50 50))
 (on-redraw rd)
-(on-mouse-event ms)
+(on-mouse-event ms)

collects/htdp/draw-sig.ss

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

collects/htdp/servlet.ss

@@ -53,4 +53,4 @@
      (define (attribute-pair? b)
        (and (pair? b)
             (symbol? (car b))
-            (string? (cdr b)))))
+            (string? (cdr b)))))