Use new release version string from runtime rather than deprecated
authorChris Hanson <org/chris-hanson/cph>
Wed, 15 Mar 2000 03:37:01 +0000 (03:37 +0000)
committerChris Hanson <org/chris-hanson/cph>
Wed, 15 Mar 2000 03:37:01 +0000 (03:37 +0000)
string from microcode.

v7/src/edwin/sendmail.scm

index b1086795d7fd23a68feafd0238299cebb849340a..878d9f0bff75bdc1fd1cba324cab01051576ed75 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.45 2000/02/29 02:41:44 cph Exp $
+;;; $Id: sendmail.scm,v 1.46 2000/03/15 03:37:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -371,7 +371,7 @@ is inserted."
        (string-append "Edwin [version "
                      (get-subsystem-version-string "edwin")
                      ", MIT Scheme Release "
-                     microcode-id/release-string
+                     (get-subsystem-version-string "release")
                      "]")))
 \f
 (define-variable mail-setup-hook