From 6a668134cacda503aa0c646cdbf01fcb5d1b990b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 16 Jun 1988 06:39:36 +0000 Subject: [PATCH] Add procedure `add-identification!' which provides all the interesting functionality needed by most programs now. --- v7/src/runtime/system.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/system.scm b/v7/src/runtime/system.scm index 6f0271a71..75e81d3bb 100644 --- a/v7/src/runtime/system.scm +++ b/v7/src/runtime/system.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 14.1 1988/06/13 11:58:10 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 14.2 1988/06/16 06:39:36 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -37,9 +37,13 @@ MIT in each case. |# (declare (usual-integrations)) +(define (add-identification! name version modification) + (add-system! (make-system name version modification '()))) + (define-structure (system - (constructor make-system - (name version modification files-lists)) + (constructor + make-system + (name version modification files-lists)) (conc-name system/)) (name false read-only true) (version false read-only true) -- 2.25.1