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

aand.rkt (317B)

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