From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 6 Feb 2012 19:55:19 +0000 (-0800)
Subject: Use MAKE-LAMBDA-LIST rather than ad-hoc code.
X-Git-Tag: release-9.2.0~317
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=db76f14618e32702aff4b7355d6c657fe115b0e4;p=mit-scheme.git

Use MAKE-LAMBDA-LIST rather than ad-hoc code.
---

diff --git a/src/sf/tables.scm b/src/sf/tables.scm
index 6f9c5cb3b..2196ced4e 100644
--- a/src/sf/tables.scm
+++ b/src/sf/tables.scm
@@ -87,14 +87,11 @@ USA.
   (define (procedure->pretty procedure)
     (if (procedure/scode procedure)
 	(unsyntax (procedure/scode procedure))
-	(let ((arg-list (append (procedure/required procedure)
-				(if (null? (procedure/optional procedure))
-				    '()
-				    (cons lambda-tag:optional
-					  (procedure/optional procedure)))
-				(if (not (procedure/rest procedure))
-				    '()
-				    (procedure/rest procedure)))))
+	(let ((arg-list (make-lambda-list
+			 (procedure/required procedure)
+			 (procedure/optional procedure)
+			 (procedure/rest procedure)
+			 '())))
 	  (if (procedure/name procedure)
 	      `(named-lambda (,(procedure/name procedure) ,@arg-list)
 		 ...)