Remove unnecessary Emacs scheme markers
Emacs can auto-detect that .scm files use Scheme syntax.
This commit is contained in:
parent
f749246f7d
commit
ad4ef08080
|
@ -1,5 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
|
||||
(define Instructions
|
||||
(let ((e (table))
|
||||
(keys
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -1,5 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
|
||||
(load "system.scm")
|
||||
(load "aliases.scm")
|
||||
(load "compiler.scm")
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
; femtoLisp standard library
|
||||
; by Jeff Bezanson (C) 2009
|
||||
; Distributed under the BSD License
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
(define (begin->cps forms k)
|
||||
(cond ((atom? forms) `(,k ,forms))
|
||||
((null? (cdr forms)) (cps- (car forms) k))
|
||||
|
|
|
@ -1,5 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
|
||||
(define (rule30-step b)
|
||||
(let ((L (ash b -1))
|
||||
(R (ash b 1)))
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
; utilities for AST processing
|
||||
|
||||
(define (symconcat s1 s2)
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
; tree regular expression pattern matching
|
||||
; by Jeff Bezanson
|
||||
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
(load "match-lsp.scm")
|
||||
(load "asttools.scm")
|
||||
|
||||
|
|
|
@ -1,5 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
|
||||
; dictionaries ---------------------------------------------------------------
|
||||
(define (dict-new) ())
|
||||
|
||||
|
|
|
@ -1,5 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
|
||||
(define (hins1)
|
||||
(let ((h (table)))
|
||||
(dotimes (n 200000)
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
; color for performance
|
||||
|
||||
(load "color.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))
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
(define (maplist f l)
|
||||
(if (null? l) ()
|
||||
(cons (f l) (maplist f (cdr l)))))
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
; -*- scheme -*-
|
||||
(define-macro (assert-fail expr . what)
|
||||
`(assert (trycatch (begin ,expr #f)
|
||||
(lambda (e) ,(if (null? what) #t
|
||||
|
|
Loading…
Reference in New Issue