Permalink
Browse files

No more call in unstable/function.

  • Loading branch information...
1 parent 6bc9c28 commit 86b8ae19cd7c2d354886ab10a9a2a439b959ab79 @stamourv committed Feb 24, 2012
Showing with 4 additions and 4 deletions.
  1. +2 −2 engine/encounters.rkt
  2. +2 −2 engine/game-loop.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))))
@@ -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)))

0 comments on commit 86b8ae1

Please sign in to comment.