diff options
-rw-r--r-- | sly/helpers.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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 ...)) |