34 lines
987 B
Text
34 lines
987 B
Text
$NetBSD: patch-aa,v 1.3 2015/12/29 23:34:56 dholland Exp $
|
|
|
|
Allow setting the prelude path from outside.
|
|
|
|
This is not the only scheme interpreter, so change the init filename
|
|
and similar strings accordingly.
|
|
|
|
--- 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();
|
|
|