blob: 472f27c340984c6789729571e7f52f5c8e752c6e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
$NetBSD: patch-aa,v 1.2 2001/04/12 21:06:44 jtb Exp $
--- steering.c.orig Sun Jan 21 22:15:53 1996
+++ steering.c
@@ -62,7 +62,11 @@
#define TOP_LEVEL_PROMPT "\n==> "
+#include "path.h"
+
+#ifndef STANDARD_PRELUDE_PATHNAME
#define STANDARD_PRELUDE_PATHNAME "/usr/local/lib/scheme/prelude.scheme"
+#endif
Private String OPENING =
"Welcome to UMB Scheme, version Copyright (c) 1988,1996 William R Campbell.\n\
@@ -91,10 +95,10 @@
Private void Steering()
{
Character Opening[400];
- String Init_Filename = getenv ("SCHEME_INIT");
+ String Init_Filename = getenv ("UMB_SCHEME_INIT");
Character Dot_Scheme_Filename [256];
sprintf (Opening, "%s", OPENING);
- sprintf (Dot_Scheme_Filename, "%s/.scheme", getenv ("HOME"));
+ sprintf (Dot_Scheme_Filename, "%s/.umb-scheme", getenv ("HOME"));
Initializations();
|