From 86b8ae19cd7c2d354886ab10a9a2a439b959ab79 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 23 Feb 2012 23:24:38 -0500 Subject: [PATCH] No more call in unstable/function. --- engine/encounters.rkt | 4 ++-- engine/game-loop.rkt | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/engine/encounters.rkt b/engine/encounters.rkt index 6a69d9a..12f866d 100644 --- 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 index 51bc9f5..c46399f 100644 --- 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)))