From a333a18922bad48f2b0f31a167483b681409bce8 Mon Sep 17 00:00:00 2001 From: Puck Meerburg Date: Mon, 23 Jun 2025 12:22:20 +0000 Subject: [PATCH] docread: support non-list lambdas This makes lambdas with tail arguments work properly. Change-Id: I6a6a6964be286b69ebe28f3798f6f0d16626b5be --- docs/docread/docread.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/docread/docread.scm b/docs/docread/docread.scm index e610749..00d06b7 100644 --- a/docs/docread/docread.scm +++ b/docs/docread/docread.scm @@ -129,7 +129,7 @@ (set! comments '()))) ; (define (foo bar baz) quux) - ((and (list? i) (eq? (car i) 'define) (list? (cadr i))) + ((and (list? i) (eq? (car i) 'define) (pair? (cadr i))) (let* ((def (cadr i)) (name (car def)) (args (cdr def))) (set! defines (cons (cons name (make-doc-entry (make-lambda-doc name args '() #f) (reverse comments))) defines)) (set! comments '())))