Updated umb-scheme to 3.2. No changelog. Executable now called `umb-scheme'

to avoid conflict with other Schemes.

7 files changed, 167 insertions, 19 deletions

diff --git a/lang/umb-scheme/patches/patch-aa b/lang/umb-scheme/patches/patch-aa
index 8a94d032e1d..472f27c3409 100644
--- a/lang/umb-scheme/patches/patch-aa
+++ b/lang/umb-scheme/patches/patch-aa
@@ -1,13 +1,29 @@
-$NetBSD: patch-aa,v 1.1.1.1 2000/11/02 11:59:07 itojun Exp $
+$NetBSD: patch-aa,v 1.2 2001/04/12 21:06:44 jtb Exp $
 
---- steering.c-	Thu Nov  2 20:47:38 2000
-+++ steering.c	Thu Nov  2 20:47:50 2000
-@@ -61,6 +61,8 @@
+--- 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/prelude.scheme"
- #endif
++#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();
+ 
diff --git a/lang/umb-scheme/patches/patch-ab b/lang/umb-scheme/patches/patch-ab
index 8a2f62b91f7..e4d81676f19 100644
--- a/lang/umb-scheme/patches/patch-ab
+++ b/lang/umb-scheme/patches/patch-ab
@@ -1,12 +1,22 @@
-$NetBSD: patch-ab,v 1.1.1.1 2000/11/02 11:59:07 itojun Exp $
+$NetBSD: patch-ab,v 1.2 2001/04/12 21:06:44 jtb Exp $
 
---- Makefile-	Thu Nov  2 20:49:05 2000
-+++ Makefile	Thu Nov  2 20:49:21 2000
+--- Makefile.orig	Sun Jan 21 22:15:47 1996
++++ Makefile
 @@ -1,6 +1,6 @@
  # Makefile for the UMB Scheme interpreter.
- CC = gcc
+-CC = gcc
 -CFLAGS =  -g -O   -pedantic -Wall
-+CFLAGS =  -g -O   -pedantic -Wall -I${.CURDIR}
++#CC = gcc
++#CFLAGS =  -g -O   -pedantic -Wall
  
  #CC = cc
  #CFLAGS = -O 
+@@ -11,7 +11,7 @@
+ 	  io.o compiler.o eval.o architecture.o number.o\
+ 	  fixnum.o bignum.o rational.o real.o complex.o
+ libraries = -lm
+-program = scheme
++program = umb-scheme
+ 
+ .PHONY:		default tags print
+ 
diff --git a/lang/umb-scheme/patches/patch-ac b/lang/umb-scheme/patches/patch-ac
index 4fed22a6ec1..81e4d38702f 100644
--- a/lang/umb-scheme/patches/patch-ac
+++ b/lang/umb-scheme/patches/patch-ac
@@ -1,13 +1,75 @@
-$NetBSD: patch-ac,v 1.1.1.1 2000/11/02 11:59:07 itojun Exp $
+$NetBSD: patch-ac,v 1.2 2001/04/12 21:06:44 jtb Exp $
 
---- scheme.1-	Thu Nov  2 20:51:05 2000
-+++ scheme.1	Thu Nov  2 20:51:21 2000
-@@ -321,7 +321,7 @@
+--- scheme.1.tmp.orig	Sun Jan 21 22:15:52 1996
++++ scheme.1.tmp	Thu Apr 12 19:05:35 2001
+@@ -1,10 +1,10 @@
+-.TH SCHEME 1  "Janaury 22, 1996" "local"
++.TH UMB-SCHEME 1  "Janaury 22, 1996" "local"
+ .SH NAME
+-scheme  \-  UMB Scheme  (Revision: 3.2 )
++umb-scheme  \-  UMB Scheme  (Revision: 3.2 )
+ .SH ORIGIN
+ University of Massachusetts at Boston
+ .SH SYNOPSIS
+-.B scheme [file ...]
++.B umb-scheme [file ...]
+ .SH DESCRIPTION
+ .ta +0.5i 2.0i 
+ .PP
+@@ -21,14 +21,14 @@
+ .PP
+ The following files are loaded in order at startup:
+ .PP
+-If the variable SCHEME_INIT is set in the user's environment by executing
++If the variable UMB_SCHEME_INIT is set in the user's environment by executing
+ .nf
+-        setenv SCHEME_INIT file
++        setenv UMB_SCHEME_INIT file
+ .fi
+ then file is loaded.
+ .PP
+-If SCHEME_INIT is not set and if a file 
+-.I " .scheme "
++If UMB_SCHEME_INIT is not set and if a file 
++.I " .umb-scheme "
+ exists in the user's home directory then it is loaded.
+ .PP
+ The files named as optional arguments are loaded from left to right.
+@@ -99,11 +99,9 @@
+ 
+ UMB Scheme can access Aubrey Jaffer's 
+ .I "Scheme Portable Library (SLIB)."
+-For documentation on SLIB see either
++For documentation on SLIB see
+ .br
+-.I "http://www.cs.indiana.edu/scheme-repository/SCM/slib_toc.html"
+-or
+-.I "/usr/local/lib/slib/slib.texinfo."
++.I "http://swissnet.ai.mit.edu/~jaffer/SLIB.html"
+ 
+ .SH SYSTEM INTERFACE
+ 
+@@ -281,7 +279,7 @@
+ the debugger is turned 
+ .I "off"
+ by default.  One can insure the debugger is always turned on by putting a 
+-call to debug in the Scheme Init file (e.g. .scheme).
++call to debug in the Scheme Init file (e.g. .umb-scheme).
+ .PP
+ Any scheme expression may be evaluated in debugging mode.  It is evaluated
+ in the environment that existed when the break occurred in the top level
+@@ -345,11 +343,11 @@
  UMB Scheme does not support nested debugging sessions.  (Keep it simple.)
  .fi
  .SH FILES
--/usr/local/lib/prelude.scheme
-+@PREFIX@/lib/umb-scheme/prelude.scheme
+-/usr/local/lib/scheme/prelude.scheme
++@PREFIX@/share/umb-scheme/prelude.scheme
+ .br
+-/usr/local/lib/scheme/SLIB-for-umb-scheme.init
++@PREFIX@/share/umb-scheme/SLIB-for-umb-scheme.init
+ .br
+-/usr/local/lib/slib/*
++@SLIB_PREFIX@/share/slib/*
+ 
  .SH "SEE ALSO"
  Release Notes
- .SH COPYING
diff --git a/lang/umb-scheme/patches/patch-ad b/lang/umb-scheme/patches/patch-ad
new file mode 100644
index 00000000000..fb5a8308305
--- /dev/null
+++ b/lang/umb-scheme/patches/patch-ad
@@ -0,0 +1,13 @@
+$NetBSD: patch-ad,v 1.1 2001/04/12 21:06:45 jtb Exp $
+
+--- prelude.scheme.orig	Thu Apr 12 19:36:23 2001
++++ prelude.scheme
+@@ -708,7 +708,7 @@
+ ; 
+ ; Comment this out if you don't want to use SLIB
+ 
+-(load "/usr/local/lib/scheme/SLIB-for-umb-scheme.init")
++(load "@PREFIX@/share/umb-scheme/SLIB-for-umb-scheme.init")
+ 
+ ; MAINTENANCE PROCEDURES
+ 
diff --git a/lang/umb-scheme/patches/patch-ae b/lang/umb-scheme/patches/patch-ae
new file mode 100644
index 00000000000..75d3cd36d58
--- /dev/null
+++ b/lang/umb-scheme/patches/patch-ae
@@ -0,0 +1,22 @@
+$NetBSD: patch-ae,v 1.1 2001/04/12 21:06:45 jtb Exp $
+
+--- SLIB-for-umb-scheme.init.orig	Thu Apr 12 20:08:58 2001
++++ SLIB-for-umb-scheme.init
+@@ -40,7 +40,7 @@
+ 
+ (define (implementation-vicinity)
+   (case (software-type)
+-    ((UNIX)	 "/usr/local/src/scheme/")
++    ((UNIX)	 "@PREFIX@/share/umb-scheme/")
+     ((VMS)	"scheme$src:")
+     ((MS-DOS)	"C:\\scheme\\")))
+ 
+@@ -55,7 +55,7 @@
+ 	  ;; Use this path if your scheme does not support GETENV
+ 	  ;; or if SCHEME_LIBRARY_PATH is not set.
+ 	  (case (software-type)
+-	    ((UNIX) "/usr/local/lib/slib/")
++	    ((UNIX) "@PREFIX@/share/umb-scheme/slib/")
+ 	    ((VMS) "lib$scheme:")
+ 	    ((MS-DOS) "C:\\SLIB\\")
+ 	    (else "")))))
diff --git a/lang/umb-scheme/patches/patch-af b/lang/umb-scheme/patches/patch-af
new file mode 100644
index 00000000000..e4db323ae1b
--- /dev/null
+++ b/lang/umb-scheme/patches/patch-af
@@ -0,0 +1,13 @@
+$NetBSD: patch-af,v 1.1 2001/04/12 21:06:45 jtb Exp $
+
+--- portable.h.orig	Thu Apr 12 20:13:29 2001
++++ portable.h
+@@ -94,7 +94,7 @@
+    a float.h defns file then replace the definition of DBL_MIN with
+    an #include <float.h>                                                 */
+ 
+-#define DBL_MIN 10e-307
++/* #define DBL_MIN 10e-307 */
+ 
+ #ifdef sun
+ extern int    fclose( /* FILE *stream */ );
diff --git a/lang/umb-scheme/patches/patch-ag b/lang/umb-scheme/patches/patch-ag
new file mode 100644
index 00000000000..50fe99a9fe7
--- /dev/null
+++ b/lang/umb-scheme/patches/patch-ag
@@ -0,0 +1,12 @@
+$NetBSD: patch-ag,v 1.1 2001/04/12 21:06:45 jtb Exp $
+
+--- real.c.orig	Thu Apr 12 20:15:25 2001
++++ real.c
+@@ -38,6 +38,7 @@
+ point type. As a result, all the operations can use native (C)
+ functions.  */
+ 
++#include <limits.h>
+ #include "portable.h"
+ #include "eval.h"
+ #include "object.h"