Define OS/ABBREV-FILE-NAME.

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index d97218f4240e42b7db467ac039fbfc20626134b3..9f0cde69a76fbbd8468a1902fed986947008f965 100644 (file)
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dosfile.scm,v 1.35 2000/02/03 22:24:52 cph Exp $
+;;; $Id: dosfile.scm,v 1.36 2000/02/28 04:23:08 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -443,11 +443,10 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
      ("y" . c))))
 
 (define (os/init-file-name)
-  (let ((name "edwin.ini"))
-    (let ((user-init-file (merge-pathnames name (user-homedir-pathname))))
-      (if (file-exists? user-init-file)
-         user-init-file
-         (merge-pathnames name (system-library-directory-pathname #f))))))
+  "~/edwin.ini")
+
+(define (os/abbrev-file-name)
+  "~/abbrevs.scm")
 
 (define (os/find-file-initialization-filename pathname)
   (or (and (equal? "scm" (pathname-type pathname))

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index a8629147a1ae9baf49e367613e04c663a249ff2f..0217cf120a9765ce2a8068fe5d1697ec1fe78deb 100644 (file)
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unix.scm,v 1.105 2000/01/16 13:24:11 cph Exp $
+;;; $Id: unix.scm,v 1.106 2000/02/28 04:23:05 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -327,6 +327,9 @@ Includes the new backup.  Must be > 0."
 (define (os/init-file-name)
   "~/.edwin")
 
+(define (os/abbrev-file-name)
+  "~/.abbrev_defs")
+
 (define (os/find-file-initialization-filename pathname)
   (or (and (equal? "scm" (pathname-type pathname))
           (let ((pathname (pathname-new-type pathname "ffi")))