Remove unnecessary Emacs scheme markers

Emacs can auto-detect that .scm files use Scheme syntax.
This commit is contained in:
Lassi Kortela 2019-10-14 14:19:52 +03:00
parent f749246f7d
commit ad4ef08080
15 changed files with 0 additions and 22 deletions

View File

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

View File

@ -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)))

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -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))

View File

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

View File

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