Signed-off-by: Christian Jaeger christian@pflanze.mine.nu --- expr.scm | 10 +++++++--- 1 files changed, 7 insertions(+), 3 deletions(-)
Note: save these emails as file and use "git am the-files" to apply them to your git repo.
diff --git a/expr.scm b/expr.scm index c006a9f..216b40e 100644 --- a/expr.scm +++ b/expr.scm @@ -1,4 +1,10 @@ -(define (map* fn obj #!optional (tail '())) +;; Copyright 2006-2009 by Christian Jaeger, <christian at pflanze mine nu> + +;; Published under the terms of either the GNU LGPL Version 2.1 or the +;; Apache License Version 2.0; you can choose whichever license you +;; prefer. + +(define (map* fn obj #!optional (tail '()))) (let rec ((obj obj)) (cond ((pair? obj) (cons (fn (car obj)) @@ -25,8 +31,6 @@ (else (fn obj)))))
-;; ------------------------------------------------------------ -
;; cj Sat, 01 Jul 2006 19:51:48 +0200 ;; moved some stuff from my unfinished cj-syntax module here, and added some more.