From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 1 Sep 1993 18:12:01 +0000 (+0000)
Subject: Print message reminding user to dump doc strings.
X-Git-Tag: 20090517-FFI~7935
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f5356d2213789630ef83c6a5d7d8e443ee756fc0;p=mit-scheme.git

Print message reminding user to dump doc strings.
---

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 9310a4a58..699e3e1f6 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.42 1993/08/22 04:48:26 gjr Exp $
+$Id: edwin.ldr,v 1.43 1993/09/01 18:12:01 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -105,6 +105,8 @@ MIT in each case. |#
 	(load "search" environment)
 	(load "image" environment)
 	(load "comman" environment)
+	(if (not (memq (lookup 'os-type) '(dos nt)))
+	    (set! (access *external-doc-strings?* environment) false))
 	(load "comtab" (->environment '(EDWIN COMTAB)))
 	(load "modes" environment)
 	(load "buffer" environment)
@@ -227,4 +229,8 @@ MIT in each case. |#
 	(load-set-and-initialize! '("bochser" "bochsmod")
 				  (->environment '(EDWIN BOCHSER)))
 	|#
-	(load "notify" environment)))))
\ No newline at end of file
+	(load "notify" environment)
+	(if (access *external-doc-strings?* environment)
+	    (begin
+	      (set! (access *external-doc-strings?* environment) false)
+	      (warn "Remember to use ``dump-doc-strings''!")))))))
\ No newline at end of file