From 89ae90913ad62ef9152e041e7aae28683ddbf608 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 16 Jun 1988 06:40:12 +0000 Subject: [PATCH] Change to use new procedure `add-identification!'. --- v7/src/runtime/version.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm index 9562a2ebe..e83578d66 100644 --- a/v7/src/runtime/version.scm +++ b/v7/src/runtime/version.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.4 1988/06/13 13:06:17 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.5 1988/06/16 06:40:12 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -38,8 +38,6 @@ MIT in each case. |# (declare (usual-integrations)) (define (initialize-package!) - (add-system! (make-system "Microcode" - microcode-id/version - microcode-id/modification - '())) - (add-system! (make-system "Runtime" 14 4 '()))) \ No newline at end of file + (add-identification! + "Microcode" microcode-id/version microcode-id/modification) + (add-identification! "Runtime" 14 5)) \ No newline at end of file -- 2.25.1