From 8d6b96b91251f62cb063bf6ec38933ed457a1d7f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 17 Aug 2014 21:34:54 -0400
Subject: Add forever macro.

* sly/helpers.scm (forever): New macro.
---
 sly/helpers.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/sly/helpers.scm b/sly/helpers.scm
index 725ba3f..9192431 100644
--- a/sly/helpers.scm
+++ b/sly/helpers.scm
@@ -29,7 +29,8 @@
   #:export (any-equal?
             logand?
             define-guardian
-            memoize))
+            memoize
+            forever))
 
 (define (any-equal? elem . args)
   "Return #t if ELEM equals any of the elements in the list ARGS."
@@ -65,3 +66,6 @@ same thread that is running the game loop."
                              list)))
               (hash-set! cache args results)
               (apply values results)))))))
+
+(define-syntax-rule (forever body ...)
+  (while #t body ...))
-- 
cgit v1.2.3