Add missing copyright header. Thanks, Mike!
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 20 Jul 2018 04:40:51 +0000 (06:40 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 20 Jul 2018 04:40:51 +0000 (06:40 +0200)
* guile/gc.c: Add missing copyright header.  Thanks, Mike!

guile/gc.scm

index c2505909aadd31692048637e9eab0fb6de6a66e2..2f680b778834085cfdbff03bede31642c0956c3d 100644 (file)
@@ -1,3 +1,29 @@
+;;; -*-scheme-*-
+
+;;; Mes --- Maxwell Equations of Software
+;;; Copyright © 2016 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;;
+;;; mes.mes: This file is part of Mes.
+;;;
+;;; Mes is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; Mes is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; This is an early SICP stop-and-copy garbage collector playground,
+;;; currently not used.
+
+;;; Code:
 
 (define-module (guile gc))
 
   (if (eq? scan gc-free) (gc-flip)
       (let ((old (vector-ref new-cars scan)))
         (let ((new (gc-relocate old)))
-          (let ((old (gc-update-car scan new))) 
+          (let ((old (gc-update-car scan new)))
             (let ((new (gc-relocate old)))
               (let ((scan (gc-update-cdr scan new)))
                 (gc-loop scan))))))))
 (define (gc-relocate old) ; old -> new
   (display "gc-relocate old=") (display old) (newline)
   (display "gc-relocate old is pair?=") (display (gc-pair? old)) (newline)
-  
+
   (if (not (gc-pair? old)) old
       (let ((oldcr (vector-ref the-cars (cell-index old))))
         (display "gc-relocate oldcr=") (display oldcr) (newline)