;;; -*-Scheme-*-
;;;
-;;; $Id: load.scm,v 1.18 2000/06/16 17:56:24 cph Exp $
+;;; $Id: load.scm,v 1.19 2000/06/30 19:23:15 cph Exp $
;;;
;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
;;;
(lambda ()
(fluid-let ((*allow-package-redefinition?* #t))
(package/system-loader "imail" '() 'QUERY))))
-(add-subsystem-identification! "IMAIL" '(1 3))
\ No newline at end of file
+(add-subsystem-identification! "IMAIL" '(1 4))
\ No newline at end of file
#| -*-Scheme-*-
-$Id: version.scm,v 14.186 2000/05/01 03:09:45 cph Exp $
+$Id: version.scm,v 14.187 2000/06/30 19:21:28 cph Exp $
Copyright (c) 1988-2000 Massachusetts Institute of Technology
(declare (usual-integrations))
(define (initialize-package!)
- (add-subsystem-identification! "Release" '(7 5 8))
+ (add-subsystem-identification! "Release" '(7 5 9))
(snarf-microcode-version!)
(add-event-receiver! event:after-restore snarf-microcode-version!)
- (add-subsystem-identification! "Runtime" '(14 182)))
+ (add-subsystem-identification! "Runtime" '(14 183)))
(define (snarf-microcode-version!)
(add-subsystem-identification! "Microcode"