From db76f14618e32702aff4b7355d6c657fe115b0e4 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Mon, 6 Feb 2012 11:55:19 -0800 Subject: [PATCH] Use MAKE-LAMBDA-LIST rather than ad-hoc code. --- src/sf/tables.scm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) 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) ...) -- 2.25.1