From 4baae35e7c6374ab590cd68f50a6e24c1d71c076 Mon Sep 17 00:00:00 2001 From: Patrick Mahoney Date: Fri, 3 Aug 2012 17:03:34 -0400 Subject: [PATCH] Remove mzlib/etc dependency --- collects/frtime/lang-ext.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/frtime/lang-ext.rkt b/collects/frtime/lang-ext.rkt index ac953bea9d..13d276b9c3 100644 --- a/collects/frtime/lang-ext.rkt +++ b/collects/frtime/lang-ext.rkt @@ -1,8 +1,7 @@ #lang racket/base (require frtime/core/frp (only-in racket/list first second cons? empty empty? rest last-pair) - (only-in mzlib/etc - rec identity) + (only-in racket/function identity) (for-syntax scheme/list scheme/base)) @@ -228,7 +227,7 @@ ; while-e : behavior[bool] behavior[number] -> event (define (while-e b interval) - (rec ret (event-producer2 + (letrec ([ret (event-producer2 (lambda (emit) (lambda the-args (cond @@ -236,7 +235,8 @@ (lambda (v) (emit v) (schedule-alarm (+ (value-now interval) (current-inexact-milliseconds)) ret))]))) - b))) + b)]) + ret)) ; ==> : event[a] (a -> b) -> event[b] (define (e . ==> . f)