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
|
(define Instructions
|
||||||
(let ((e (table))
|
(let ((e (table))
|
||||||
(keys
|
(keys
|
||||||
|
|
|
@ -1,5 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
|
|
||||||
(if (not (bound? 'top-level-value)) (set! top-level-value %eval))
|
(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? 'set-top-level-value!)) (set! set-top-level-value! set))
|
||||||
(if (not (bound? 'eof-object?)) (set! eof-object? (lambda (x) #f)))
|
(if (not (bound? 'eof-object?)) (set! eof-object? (lambda (x) #f)))
|
||||||
|
|
|
@ -1,5 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
|
|
||||||
(load "system.scm")
|
(load "system.scm")
|
||||||
(load "aliases.scm")
|
(load "aliases.scm")
|
||||||
(load "compiler.scm")
|
(load "compiler.scm")
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
; femtoLisp standard library
|
; femtoLisp standard library
|
||||||
; by Jeff Bezanson (C) 2009
|
; by Jeff Bezanson (C) 2009
|
||||||
; Distributed under the BSD License
|
; Distributed under the BSD License
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
(define (begin->cps forms k)
|
(define (begin->cps forms k)
|
||||||
(cond ((atom? forms) `(,k ,forms))
|
(cond ((atom? forms) `(,k ,forms))
|
||||||
((null? (cdr forms)) (cps- (car forms) k))
|
((null? (cdr forms)) (cps- (car forms) k))
|
||||||
|
|
|
@ -1,5 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
|
|
||||||
(define (rule30-step b)
|
(define (rule30-step b)
|
||||||
(let ((L (ash b -1))
|
(let ((L (ash b -1))
|
||||||
(R (ash b 1)))
|
(R (ash b 1)))
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
; utilities for AST processing
|
; utilities for AST processing
|
||||||
|
|
||||||
(define (symconcat s1 s2)
|
(define (symconcat s1 s2)
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
; tree regular expression pattern matching
|
; tree regular expression pattern matching
|
||||||
; by Jeff Bezanson
|
; by Jeff Bezanson
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
(load "match-lsp.scm")
|
(load "match-lsp.scm")
|
||||||
(load "asttools.scm")
|
(load "asttools.scm")
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
|
|
||||||
; dictionaries ---------------------------------------------------------------
|
; dictionaries ---------------------------------------------------------------
|
||||||
(define (dict-new) ())
|
(define (dict-new) ())
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
|
|
||||||
(define (hins1)
|
(define (hins1)
|
||||||
(let ((h (table)))
|
(let ((h (table)))
|
||||||
(dotimes (n 200000)
|
(dotimes (n 200000)
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
; color for performance
|
; color for performance
|
||||||
|
|
||||||
(load "color.scm")
|
(load "color.scm")
|
||||||
|
|
|
@ -1,5 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
|
|
||||||
; make label self-evaluating, but evaluating the lambda in the process
|
; make label self-evaluating, but evaluating the lambda in the process
|
||||||
;(defmacro labl (name f)
|
;(defmacro labl (name f)
|
||||||
; (list list ''labl (list 'quote name) f))
|
; (list list ''labl (list 'quote name) f))
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
(define (maplist f l)
|
(define (maplist f l)
|
||||||
(if (null? l) ()
|
(if (null? l) ()
|
||||||
(cons (f l) (maplist f (cdr l)))))
|
(cons (f l) (maplist f (cdr l)))))
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
; -*- scheme -*-
|
|
||||||
(define-macro (assert-fail expr . what)
|
(define-macro (assert-fail expr . what)
|
||||||
`(assert (trycatch (begin ,expr #f)
|
`(assert (trycatch (begin ,expr #f)
|
||||||
(lambda (e) ,(if (null? what) #t
|
(lambda (e) ,(if (null? what) #t
|
||||||
|
|
Loading…
Reference in New Issue