[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#17940: (begin)

From: Matt Wette
Subject: bug#17940: (begin)
Date: Fri, 13 Mar 2020 06:08:01 -0700
User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.4.1

I have run into this also, in writing macros.
My workaround is to always add (if #f #f)
in my forms that allow no expressions in the body.
See second-to-last line below.

(define-syntax sx-match-1
  (syntax-rules ()
    ((_ v (pat exp ...) c1 ...)
     (let ((kf (lambda () (sx-match-1 v c1 ...))))
       (sxm-sexp v pat (begin (if #f #f) exp ...) (kf))))
    ((_ v) (error "sx-match: nothing matches"))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]