From b0af977fb59d8b111cf987d736b0642b37f1378c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 5 Apr 1989 18:21:57 +0000 Subject: [PATCH] Update pathnames to reflect current installation. Add new pathname for tutorial file. --- v7/src/edwin/paths.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/paths.scm b/v7/src/edwin/paths.scm index 9f4d2308d..b8fd2bb29 100644 --- a/v7/src/edwin/paths.scm +++ b/v7/src/edwin/paths.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/paths.scm,v 1.1 1989/03/14 08:08:55 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/paths.scm,v 1.2 1989/04/05 18:21:57 cph Rel $ Copyright (c) 1989 Massachusetts Institute of Technology @@ -37,7 +37,10 @@ MIT in each case. |# (declare (usual-integrations)) (define edwin-binary-directory - (string->pathname "/zu/cph/edwin/")) + (string->pathname "/zurich/scheme/edwin/")) (define edwin-info-directory - edwin-binary-directory) \ No newline at end of file + (string->pathname "/emacs-device/emacs/info/")) + +(define edwin-tutorial-pathname + (string->pathname "/zurich/scheme/edwin/TUTORIAL")) \ No newline at end of file -- 2.25.1