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

if-let.rkt (261B)

      1 #lang racket/base
      2 
      3 (provide if-let)
      4 
      5 (require (for-syntax racket/base))
      6 
      7 (define-syntax-rule (if-let [variable condition] true-branch false-branch)
      8   (let ([tmp condition])
      9     (if tmp
     10         (let ([variable tmp])
     11           true-branch)
     12         false-branch)))