From f53bcbc078d9ff850dadc805a6c1417c4f2be150 Mon Sep 17 00:00:00 2001 From: Martin Gasbichler Date: Tue, 28 Jan 2003 10:47:26 +0000 Subject: [PATCH] removed comment, added copyright --- s48/rt-modules/rt-module.scm | 21 +++++++-------------- 1 file changed, 7 insertions(+), 14 deletions(-) diff --git a/s48/rt-modules/rt-module.scm b/s48/rt-modules/rt-module.scm index 1ba9438..bd9f4e0 100644 --- a/s48/rt-modules/rt-module.scm +++ b/s48/rt-modules/rt-module.scm @@ -1,3 +1,9 @@ +;;; This file is part of the Scheme Untergrund Library. + +;;; Copyright (c) 2002-2003 by Martin Gasbichler. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + (define (interface-value-names interface-name) (let ((interface (environment-ref (config-package) interface-name)) (value-names '())) @@ -39,18 +45,5 @@ (define (load-config-file file) (load file (config-package))) -;(define-structure t (export b) -; (open scheme -; signals -; define-record-types -; primitives) -; (begin -; (define-record-type bar :bar -; (make-bar i) -; bar? -; (i bar-i)) -; (define a-bar (make-bar "kjk")) -; (add-finalizer! :bar (lambda (a-bar) (warn "finalized a bar"))))) - - \ No newline at end of file +