gistfile1.sls

(define-syntax let-optionals*
  (syntax-rules ()
    ((_ a ((v d) . r) . b)
     (let* ((t a)
            (v (if (null? t) d (car t))))
       (let-optionals* (if (null? t) '() (cdr t)) r . b)))
    ((_ a () . b)
     (begin . b))
    ((_ a (v . r) . b)
     (let-optionals* a ((v #f) . r) . b))
    ((_ a rv . b)
     (let ((rv a)) . b))))