kzccm1d4if10m2xaz1wqy3xar821pp1r-my-site-anaphoric-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

and-let.rkt (334B)

      1 #lang racket/base
      2 
      3 (provide and-let)
      4 
      5 (require anaphoric/if-let
      6          (for-syntax racket/base
      7                      syntax/parse))
      8 
      9 (define-syntax and-let
     10   (syntax-parser
     11     [(_) #'#true]
     12     [(_ body:expr) #'body]
     13     [(_ [variable:id condition:expr] rest ...+)
     14      #'(if-let [variable condition] (and-let rest ...) #false)]))
     15