suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove mzlib/etc dependency

Browse Source
This commit is contained in:
Patrick Mahoney 2012-08-03 17:03:34 -04:00 committed by Gregory Cooper
parent 1eac1be6d7
commit 4baae35e7c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/frtime/lang-ext.rkt
View File

@ -1,8 +1,7 @@
#lang racket/base #lang racket/base
(require frtime/core/frp (require frtime/core/frp
(only-in racket/list first second cons? empty empty? rest last-pair) (only-in racket/list first second cons? empty empty? rest last-pair)
(only-in mzlib/etc (only-in racket/function identity)
rec identity)
(for-syntax scheme/list (for-syntax scheme/list
scheme/base)) scheme/base))
@ -228,7 +227,7 @@
; while-e : behavior[bool] behavior[number] -> event ; while-e : behavior[bool] behavior[number] -> event
(define (while-e b interval) (define (while-e b interval)
(rec ret (event-producer2 (letrec ([ret (event-producer2
(lambda (emit) (lambda (emit)
(lambda the-args (lambda the-args
(cond (cond
@ -236,7 +235,8 @@
(lambda (v) (lambda (v)
(emit v) (emit v)
(schedule-alarm (+ (value-now interval) (current-inexact-milliseconds)) ret))]))) (schedule-alarm (+ (value-now interval) (current-inexact-milliseconds)) ret))])))
b))) b)])
ret))
; ==> : event[a] (a -> b) -> event[b] ; ==> : event[a] (a -> b) -> event[b]
(define (e . ==> . f) (define (e . ==> . f)