*** empty log message ***
authorChris Hanson <org/chris-hanson/cph>
Mon, 13 Jun 1988 13:05:41 +0000 (13:05 +0000)
committerChris Hanson <org/chris-hanson/cph>
Mon, 13 Jun 1988 13:05:41 +0000 (13:05 +0000)
v7/src/runtime/version.scm

index 8e785a5cea1b512880833ca34cb1ac90e9bb6e6b..ec383400f3830f78b745579b2a7bf7594fae9524 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.2 1988/06/13 12:00:18 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.3 1988/06/13 13:05:41 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -37,8 +37,9 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-(add-system! (make-system "Microcode"
-                         microcode-id/version
-                         microcode-id/modification
-                         '()))
-(add-system! (make-system "Runtime" 14 2 '()))
\ No newline at end of file
+(define (initialize-package!)
+  (add-system! (make-system "Microcode"
+                           microcode-id/version
+                           microcode-id/modification
+                           '()))
+  (add-system! (make-system "Runtime" 14 2 '())))
\ No newline at end of file