From ad4ef0808013eff36c56960a723c0d20fb218e77 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Mon, 14 Oct 2019 14:19:52 +0300
Subject: [PATCH] Remove unnecessary Emacs scheme markers

Emacs can auto-detect that .scm files use Scheme syntax.
---
 scheme-core/compiler.scm       | 2 --
 scheme-core/mkboot0.scm        | 2 --
 scheme-core/mkboot1.scm        | 2 --
 scheme-core/system.scm         | 1 -
 scheme-examples/cps.scm        | 1 -
 scheme-examples/rule30.scm     | 2 --
 scheme-tests/ast/asttools.scm  | 1 -
 scheme-tests/ast/match-lsp.scm | 1 -
 scheme-tests/ast/rpasses.scm   | 1 -
 scheme-tests/color.scm         | 2 --
 scheme-tests/hashtest.scm      | 2 --
 scheme-tests/tcolor.scm        | 1 -
 scheme-tests/test.scm          | 2 --
 scheme-tests/torus.scm         | 1 -
 scheme-tests/unittest.scm      | 1 -
 15 files changed, 22 deletions(-)

diff --git a/scheme-core/compiler.scm b/scheme-core/compiler.scm
index 2a0bf55..b3e1d32 100644
--- a/scheme-core/compiler.scm
+++ b/scheme-core/compiler.scm
@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (define Instructions
   (let ((e (table))
         (keys
diff --git a/scheme-core/mkboot0.scm b/scheme-core/mkboot0.scm
index 404551e..744111f 100644
--- a/scheme-core/mkboot0.scm
+++ b/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)))
diff --git a/scheme-core/mkboot1.scm b/scheme-core/mkboot1.scm
index ce07fa8..1779bf7 100644
--- a/scheme-core/mkboot1.scm
+++ b/scheme-core/mkboot1.scm
@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (load "system.scm")
 (load "aliases.scm")
 (load "compiler.scm")
diff --git a/scheme-core/system.scm b/scheme-core/system.scm
index 560f469..8b8a8f5 100644
--- a/scheme-core/system.scm
+++ b/scheme-core/system.scm
@@ -1,4 +1,3 @@
-; -*- scheme -*-
 ; femtoLisp standard library
 ; by Jeff Bezanson (C) 2009
 ; Distributed under the BSD License
diff --git a/scheme-examples/cps.scm b/scheme-examples/cps.scm
index 36cdb5a..50b6727 100644
--- a/scheme-examples/cps.scm
+++ b/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))
diff --git a/scheme-examples/rule30.scm b/scheme-examples/rule30.scm
index b94b70a..2e1de48 100644
--- a/scheme-examples/rule30.scm
+++ b/scheme-examples/rule30.scm
@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (define (rule30-step b)
   (let ((L (ash b -1))
         (R (ash b 1)))
diff --git a/scheme-tests/ast/asttools.scm b/scheme-tests/ast/asttools.scm
index fea157b..9330c3b 100644
--- a/scheme-tests/ast/asttools.scm
+++ b/scheme-tests/ast/asttools.scm
@@ -1,4 +1,3 @@
-; -*- scheme -*-
 ; utilities for AST processing
 
 (define (symconcat s1 s2)
diff --git a/scheme-tests/ast/match-lsp.scm b/scheme-tests/ast/match-lsp.scm
index 7abb245..05a4fe5 100644
--- a/scheme-tests/ast/match-lsp.scm
+++ b/scheme-tests/ast/match-lsp.scm
@@ -1,4 +1,3 @@
-; -*- scheme -*-
 ; tree regular expression pattern matching
 ; by Jeff Bezanson
 
diff --git a/scheme-tests/ast/rpasses.scm b/scheme-tests/ast/rpasses.scm
index 353eeb1..d35c211 100644
--- a/scheme-tests/ast/rpasses.scm
+++ b/scheme-tests/ast/rpasses.scm
@@ -1,4 +1,3 @@
-; -*- scheme -*-
 (load "match-lsp.scm")
 (load "asttools.scm")
 
diff --git a/scheme-tests/color.scm b/scheme-tests/color.scm
index fbfd121..3c73701 100644
--- a/scheme-tests/color.scm
+++ b/scheme-tests/color.scm
@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 ; dictionaries ---------------------------------------------------------------
 (define (dict-new) ())
 
diff --git a/scheme-tests/hashtest.scm b/scheme-tests/hashtest.scm
index f063e11..fd81749 100644
--- a/scheme-tests/hashtest.scm
+++ b/scheme-tests/hashtest.scm
@@ -1,5 +1,3 @@
-; -*- scheme -*-
-
 (define (hins1)
   (let ((h (table)))
     (dotimes (n 200000)
diff --git a/scheme-tests/tcolor.scm b/scheme-tests/tcolor.scm
index f6e5c64..c5b5b09 100644
--- a/scheme-tests/tcolor.scm
+++ b/scheme-tests/tcolor.scm
@@ -1,4 +1,3 @@
-; -*- scheme -*-
 ; color for performance
 
 (load "color.scm")
diff --git a/scheme-tests/test.scm b/scheme-tests/test.scm
index 33f329a..9953bd0 100644
--- a/scheme-tests/test.scm
+++ b/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))
diff --git a/scheme-tests/torus.scm b/scheme-tests/torus.scm
index 68d0188..254c1db 100644
--- a/scheme-tests/torus.scm
+++ b/scheme-tests/torus.scm
@@ -1,4 +1,3 @@
-; -*- scheme -*-
 (define (maplist f l)
   (if (null? l) ()
     (cons (f l) (maplist f (cdr l)))))
diff --git a/scheme-tests/unittest.scm b/scheme-tests/unittest.scm
index 2fac96c..400922f 100644
--- a/scheme-tests/unittest.scm
+++ b/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