No more call in unstable/function.

stamourv · Feb 24, 2012 · 86b8ae1 · 86b8ae1
1 parent 6bc9c28
commit 86b8ae1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/engine/encounters.rkt b/engine/encounters.rkt
@@ -1,6 +1,5 @@
 #lang racket
 
-(require unstable/function)
 (require "character.rkt")
 
 (provide (all-defined-out))
@@ -15,7 +14,8 @@
 (define-struct encounter (encounter-type monsters) #:transparent)
 (define (new-encounter encounter-type) ; actually creates the monsters
   (make-encounter encounter-type
-		  (map call (encounter-type-monsters encounter-type))))
+		  (map (lambda (x) (x))
+                       (encounter-type-monsters encounter-type))))
 (define (encounter-points e)
   (apply + (map character-level (encounter-monsters e))))
 

diff --git a/engine/game-loop.rkt b/engine/game-loop.rkt
@@ -1,6 +1,6 @@
 #lang racket
 
-(require unstable/function racket/require)
+(require racket/require)
 (require "../utilities/class.rkt"
          "common.rkt"
          "character.rkt"
@@ -17,7 +17,7 @@
 (define (game-loop)
   (reschedule player)
   (let loop ()
-    (for-each call (find-next-active))
+    (for-each (lambda (x) (x)) (find-next-active))
     (increment-turn-no)
     (loop)))