From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Dec 1993 19:25:09 +0000 (+0000)
Subject: In M-x show-parameter-list, handle case where no debugging information
X-Git-Tag: 20090517-FFI~7376
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e9b8ab6e349f2b1970664f1b1466cb1694c239e1;p=mit-scheme.git

In M-x show-parameter-list, handle case where no debugging information
is available for procedure.
---

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