Advertisement
Tanula_13

Untitled

Dec 9th, 2016
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. (use-syntax (ice-9 syncase))
  2.  
  3. (define-syntax when
  4. (syntax-rules ()
  5. ((_ cond-expr expr . exprs)
  6. (if cond-expr
  7. (begin expr . exprs)))))
  8.  
  9. (define-syntax unless
  10. (syntax-rules ()
  11. ((_ cond-expr . exprs)
  12. (if (not cond-expr)
  13. (begin . exprs)))))
  14.  
  15. (define-syntax for
  16. (syntax-rules (as in)
  17. ((_ items as item . body) (for-each (lambda (item) . body) items))
  18. ((_ item in items . body) (for items as item . body))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement