From e10303106a1aead20f358d6ae5f9a4df25dacae6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 4 Apr 1992 12:52:33 +0000
Subject: [PATCH] Add missing (lambda () ...) to M-x load-library.

---
 v7/src/edwin/autold.scm | 62 +++++++++++++++++++----------------------
 1 file changed, 28 insertions(+), 34 deletions(-)

diff --git a/v7/src/edwin/autold.scm b/v7/src/edwin/autold.scm
index a90fa59bd..88108b7bf 100644
--- a/v7/src/edwin/autold.scm
+++ b/v7/src/edwin/autold.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/autold.scm,v 1.51 1992/01/09 17:46:01 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/autold.scm,v 1.52 1992/04/04 12:52:33 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -75,13 +75,11 @@
 		      (make-autoloading-procedure
 		       library-name
 		       (lambda () (lexical-reference environment name))))))
-
+
 (define (define-autoload-major-mode name super-mode-name display-name
 	  library-name description)
   (define mode
-    (make-mode name
-	       true
-	       display-name
+    (make-mode name true display-name
 	       (and super-mode-name (->mode super-mode-name))
 	       description
 	       (make-autoloading-procedure library-name
@@ -94,11 +92,7 @@
 
 (define (define-autoload-minor-mode name display-name library-name description)
   (define mode
-    (make-mode name
-	       false
-	       display-name
-	       false
-	       description
+    (make-mode name false display-name false description
 	       (make-autoloading-procedure library-name
 					   (lambda ()
 					     (mode-initialization mode)))))
@@ -112,9 +106,7 @@
 
 (define (define-autoload-command name library-name description)
   (define command
-    (make-command name
-		  description
-		  '()
+    (make-command name description '()
 		  (make-autoloading-procedure library-name
 					      (lambda ()
 						(command-procedure command)))))
@@ -188,30 +180,32 @@ Second arg FORCE? controls what happens if the library is already loaded:
 Second arg is prefix arg when called interactively."
   (lambda ()
     (list
-     (car (prompt-for-alist-value "Load library"
-				  (map (lambda (library)
-					 (cons (symbol->string (car library))
-					       library))
-				       known-libraries)))
+     (prompt-for-alist-value "Load library"
+			     (map (lambda (library)
+				    (cons (symbol->string (car library))
+					  (car library)))
+				  known-libraries))
      (command-argument)))
   (lambda (name force?)
     (let ((do-it
-	   (let ((library 
-		  (or (assq name known-libraries)
-		      (editor-error "Unknown library name: " name))))
-	     (temporary-message "Loading " (car library) "...")
-	     (let ((directory (edwin-binary-directory)))
-	       (for-each
-		(lambda (entry)
-		  (load-edwin-file
-		   (merge-pathnames (->pathname (car entry)) directory)
-		   (cadr entry)
-		   (or (null? (cddr entry)) (caddr entry))))
-		(cdr library)))
-	     (if (not (memq (car library) loaded-libraries))
-		 (set! loaded-libraries (cons (car library) loaded-libraries)))
-	     (run-library-load-hooks! (car library))
-	     (append-message "done"))))
+	   (lambda ()
+	     (let ((library 
+		    (or (assq name known-libraries)
+			(editor-error "Unknown library name: " name))))
+	       (temporary-message "Loading " (car library) "...")
+	       (let ((directory (edwin-binary-directory)))
+		 (for-each
+		  (lambda (entry)
+		    (load-edwin-file
+		     (merge-pathnames (->pathname (car entry)) directory)
+		     (cadr entry)
+		     (or (null? (cddr entry)) (caddr entry))))
+		  (cdr library)))
+	       (if (not (memq (car library) loaded-libraries))
+		   (set! loaded-libraries
+			 (cons (car library) loaded-libraries)))
+	       (run-library-load-hooks! (car library))
+	       (append-message "done")))))
       (cond ((not (library-loaded? name))
 	     (do-it))
 	    ((not force?)
-- 
2.25.1