Minimize differences with master.

diff --git a/doc/Makefile.in b/doc/Makefile.in
index 2ab21ece8be001c28110ddb7b498e09731e2a1ff..4aa52bc4d949c20596764845bece7f687eecd714 100644 (file)
--- a/doc/Makefile.in
+++ b/doc/Makefile.in
@@ -65,7 +65,6 @@ htmldir = @htmldir@
 pdfdir = @pdfdir@
 psdir = @psdir@
 INST_TARGETS = @INST_TARGETS@
-PROJECT_NAME = @PACKAGE_TARNAME@
 
 SUBDIRS = ffi ref-manual sos user-manual
 DISTCLEAN_FILES = Makefile make-common config.log config.status
@@ -118,7 +117,7 @@ install-info-gz install-info:
 
 install-man:
        $(mkinstalldirs) $(DESTDIR)$(mandir)/man1
-       $(INSTALL_DATA) ${PROJECT_NAME}.1 $(DESTDIR)$(mandir)/man1/.
+       $(INSTALL_DATA) mit-scheme-pucked.1 $(DESTDIR)$(mandir)/man1/.
 
 install-html:
        $(mkinstalldirs) $(DESTDIR)$(htmldir)

diff --git a/src/compiler/Stage.sh b/src/compiler/Stage.sh
index da07878a7efd938e8f36800d2abd19629df88763..19454bbbee31939d19233dfd5e32f8704feb655c 100755 (executable)
--- a/src/compiler/Stage.sh
+++ b/src/compiler/Stage.sh
@@ -52,23 +52,7 @@ make-cross)
          maybe_mv *.com "$S"
          maybe_mv *.bci "$S"
          maybe_mv *.moc "$S"
-         maybe_mv *.fni "$S"
-         maybe_mv *.lap "$S"
-         maybe_mv *.rtl "$S" )
-    done
-    ;;
-make-clean)
-    for D in $SUBDIRS; do
-       ( cd $D
-         mkdir "$S"
-         maybe_mv *.bin "$S"
-         maybe_mv *.ext "$S"
-         maybe_mv *.com "$S"
-         maybe_mv *.bci "$S"
-         maybe_mv *.moc "$S"
-         maybe_mv *.fni "$S"
-         maybe_mv *.lap "$S"
-         maybe_mv *.rtl "$S" )
+         maybe_mv *.fni "$S" )
     done
     ;;
 unmake)

diff --git a/src/edwin/editor.scm b/src/edwin/editor.scm
index 25bc600535c292f3ed7e3e8a1a39a511a7feb750..e74655e9c87f0fd6b84b4412f1e63267b633d7aa 100644 (file)
--- a/src/edwin/editor.scm
+++ b/src/edwin/editor.scm
@@ -616,12 +616,7 @@ TRANSCRIPT    messages appear in transcript buffer, if it is enabled;
   (if (not inferior-thread-changes?)
       (begin
        (set! inferior-thread-changes? #t)
-       (hook/signal-inferior-thread-output!))))
-
-(define (signal-inferior-thread-output!)
-  (signal-thread-event editor-thread #f))
-
-(define hook/signal-inferior-thread-output! signal-inferior-thread-output!)
+       (signal-thread-event editor-thread #f))))
 
 (define (inferior-thread-run-light! flags)
   (set-car! flags #t)

diff --git a/src/edwin/filcom.scm b/src/edwin/filcom.scm
index f343b17c6c86c5468e7b8456cf7de7cb9c2e158d..9e3f6641c7871e9f11b97e6d1170e2f9abf1c610 100644 (file)
--- a/src/edwin/filcom.scm
+++ b/src/edwin/filcom.scm
@@ -654,18 +654,9 @@ Prefix arg means treat the plaintext file as binary data."
   (lambda (from to binary-plaintext?)
     (blowfish-decrypt-file from to binary-plaintext? #f)))
 \f
-(define blowfish-available?
-  (let ((available? #f))
-    (named-lambda (blowfish-available?)
-      (or available?
-         (let ((val (ignore-errors (lambda () (load-option 'blowfish)))))
-           (and (not (condition? val))
-                (begin
-                  (set! available? #t)
-                  #t)))))))
-
 (define (guarantee-blowfish-available)
-  (if (not (blowfish-available?))
+  (if (not (ignore-errors (lambda () (load-option 'blowfish))
+                         (lambda (condition) condition #f)))
       (editor-error "Blowfish encryption not supported on this system.")))
 
 (define (blowfish-encrypt-file from to binary-plaintext? delete-plaintext?)

diff --git a/src/edwin/nntp.scm b/src/edwin/nntp.scm
index 711ddf52c11d2ad94a3793ea760e69708df678aa..a4f92f3d7ef4ffcbc098139dbbd6e0c8b7891876 100644 (file)
--- a/src/edwin/nntp.scm
+++ b/src/edwin/nntp.scm
@@ -37,16 +37,6 @@ USA.
 ;;; method for combining headers into conversation threads.
 
 (declare (usual-integrations))
-
-(define gdbm-available?
-  (let ((available? #f))
-    (named-lambda (gdbm-available?)
-      (or available?
-         (let ((val (ignore-errors (lambda () (load-option 'GDBM)))))
-           (and (not (condition? val))
-                (begin
-                  (set! available? #t)
-                  #t)))))))
 \f
 ;;;; NNTP Connection
 
@@ -540,7 +530,8 @@ USA.
              (news-group:%last-article group))))
 
 (define (news-group:use-gdbm? group type)
-  (and (gdbm-available?)
+  (and (ignore-errors (lambda () (load-option 'GDBM))
+                     (lambda (condition) condition #f))
        (memq type (news-group:%use-gdbm? group))))
 
 (define (set-news-group:use-gdbm! group types)

diff --git a/src/etc/compile-boot-compiler.sh b/src/etc/compile-boot-compiler.sh
index 2021980f43b2286cc5a0cde429954284690f402d..e0de1cc755b0353ebc22b204ed6129e1371cac5a 100755 (executable)
--- a/src/etc/compile-boot-compiler.sh
+++ b/src/etc/compile-boot-compiler.sh
@@ -71,4 +71,4 @@ run_cmd "${EXE}" --batch-mode --library lib --band x-runtime.com <<EOF
 EOF
 
 # Remove host (native) code (.bins as well as .coms) to STAGEX/ subdirs.
-run_cmd ./Stage.sh make-clean X
+run_cmd ./Stage.sh make X