From 28d119426c0449fcc3defad34045667015468d2d Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 3 Apr 2017 00:06:48 +0900 Subject: [PATCH] fixing rest parsing --- lib/chibi/doc.scm | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/lib/chibi/doc.scm b/lib/chibi/doc.scm index 687f666f..3cea6cb0 100644 --- a/lib/chibi/doc.scm +++ b/lib/chibi/doc.scm @@ -541,19 +541,19 @@ div#footer {padding-bottom: 50px} (lp (cdr ls) (cons (cons (car ls) i) vars) (+ i 1))) (else (extract body vars i))))) - (else - (let ((opts (map car (sort vars < cdr))) - (rest-var? (contains? x o))) - (append (reverse pre) - (cond - ((and (pair? opts) rest-var?) - (list (append opts o))) - (rest-var? - o) - ((pair? opts) - (list opts)) - (else - '())))))))))))) + (_ + (let* ((opts (map car (sort vars < cdr))) + (rest-var? (contains? x o)) + (tail (cond + ((and (pair? opts) rest-var?) + (list (append opts o))) + (rest-var? + o) + ((pair? opts) + (list opts)) + (else + o)))) + (append (reverse pre) tail)))))))))) (define (get-procedure-signature mod id proc) (protect (exn (else '()))