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