Remove unnecessary Emacs scheme markers

Emacs can auto-detect that .scm files use Scheme syntax.

scheme-core/compiler.scm

@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (define Instructions
   (let ((e (table))
         (keys

scheme-core/mkboot0.scm

@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (if (not (bound? 'top-level-value)) (set! top-level-value %eval))
 (if (not (bound? 'set-top-level-value!)) (set! set-top-level-value! set))
 (if (not (bound? 'eof-object?)) (set! eof-object? (lambda (x) #f)))

scheme-core/mkboot1.scm

@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (load "system.scm")
 (load "aliases.scm")
 (load "compiler.scm")

scheme-core/system.scm

@@ -1,4 +1,3 @@
-; -*- scheme -*-
 ; femtoLisp standard library
 ; by Jeff Bezanson (C) 2009
 ; Distributed under the BSD License

scheme-examples/cps.scm

@@ -1,4 +1,3 @@
-; -*- scheme -*-
 (define (begin->cps forms k)
   (cond ((atom? forms)       `(,k ,forms))
         ((null? (cdr forms))  (cps- (car forms) k))

scheme-examples/rule30.scm

@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (define (rule30-step b)
   (let ((L (ash b -1))
         (R (ash b 1)))

scheme-tests/ast/asttools.scm

@@ -1,4 +1,3 @@
-; -*- scheme -*-
 ; utilities for AST processing
 
 (define (symconcat s1 s2)

scheme-tests/ast/match-lsp.scm

@@ -1,4 +1,3 @@
-; -*- scheme -*-
 ; tree regular expression pattern matching
 ; by Jeff Bezanson
 

scheme-tests/ast/rpasses.scm

@@ -1,4 +1,3 @@
-; -*- scheme -*-
 (load "match-lsp.scm")
 (load "asttools.scm")
 

scheme-tests/color.scm

@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 ; dictionaries ---------------------------------------------------------------
 (define (dict-new) ())
 

scheme-tests/hashtest.scm

@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (define (hins1)
   (let ((h (table)))
     (dotimes (n 200000)

scheme-tests/tcolor.scm

@@ -1,4 +1,3 @@
-; -*- scheme -*-
 ; color for performance
 
 (load "color.scm")

scheme-tests/test.scm

@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 ; make label self-evaluating, but evaluating the lambda in the process
 ;(defmacro labl (name f)
 ;  (list list ''labl (list 'quote name) f))

scheme-tests/torus.scm

@@ -1,4 +1,3 @@
-; -*- scheme -*-
 (define (maplist f l)
   (if (null? l) ()
     (cons (f l) (maplist f (cdr l)))))

scheme-tests/unittest.scm

@@ -1,4 +1,3 @@
-; -*- scheme -*-
 (define-macro (assert-fail expr . what)
   `(assert (trycatch (begin ,expr #f)
                      (lambda (e) ,(if (null? what) #t