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

when-let.rkt (198B)

      1 #lang racket/base
      2 
      3 (provide when-let)
      4 
      5 (require (for-syntax racket/base))
      6 
      7 (define-syntax-rule (when-let [variable condition] . body)
      8   (let ([variable condition])
      9     (when variable
     10       . body)))