From 80de608c724a1eebdb0605e4a26251553ec64142 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 27 Feb 2016 13:11:19 -0500
Subject: utils: Remove unused 'forever' procedure.

* sly/utils.scm (forever): Delete.
---
 sly/utils.scm | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/sly/utils.scm b/sly/utils.scm
index 0e38fe4..09d7cd3 100644
--- a/sly/utils.scm
+++ b/sly/utils.scm
@@ -30,7 +30,6 @@
   #:use-module (sly agenda)
   #:export (define-guardian
             memoize
-            forever
             trampoline
             chain* chain
             list->vlist* vlist-ref*))
@@ -61,9 +60,6 @@ same thread that is running the game loop."
               (hash-set! cache args results)
               (apply values results)))))))
 
-(define-syntax-rule (forever body ...)
-  (while #t body ...))
-
 (define-syntax-rule (trampoline proc)
   (lambda args
     (apply proc args)))
-- 
cgit v1.2.3