From e9b8ab6e349f2b1970664f1b1466cb1694c239e1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Dec 1993 19:25:09 +0000
Subject: [PATCH] In M-x show-parameter-list, handle case where no debugging
 information is available for procedure.

---
 v7/src/edwin/schmod.scm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index f5aebf130..4fc0816fd 100644
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: schmod.scm,v 1.34 1993/09/16 21:59:02 cph Exp $
+;;;	$Id: schmod.scm,v 1.35 1993/12/10 19:25:09 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -334,9 +334,11 @@ Grumbles if PROC is an undocumented primitive."
 	    (string-append (write-to-string proc)
 			   " has no documentation string.")))
       (let ((code (procedure-lambda proc)))
-	(lambda-components* code
-	  (lambda (name required optional rest body)
-	    name body
-	    (append required
-		    (if (null? optional) '() `(#!OPTIONAL ,@optional))
-		    (if rest `(#!REST ,rest) '())))))))
\ No newline at end of file
+	(if code
+	    (lambda-components* code
+	      (lambda (name required optional rest body)
+		name body
+		(append required
+			(if (null? optional) '() `(#!OPTIONAL ,@optional))
+			(if rest `(#!REST ,rest) '()))))
+	    "No debugging information available for this procedure."))))
\ No newline at end of file
-- 
2.25.1