Make mzlib/etc' reprovide
identity' from `racket/function'.
This commit is contained in:
parent
1218cbfef6
commit
d952a05ea9
|
@ -4,6 +4,8 @@
|
||||||
racket/local
|
racket/local
|
||||||
racket/bool
|
racket/bool
|
||||||
racket/block
|
racket/block
|
||||||
|
(only racket/function
|
||||||
|
identity)
|
||||||
(only scheme/base
|
(only scheme/base
|
||||||
build-string
|
build-string
|
||||||
build-list
|
build-list
|
||||||
|
@ -51,8 +53,6 @@
|
||||||
|
|
||||||
begin-lifted)
|
begin-lifted)
|
||||||
|
|
||||||
(define identity (lambda (x) x))
|
|
||||||
|
|
||||||
(define (loop-until start done? next body)
|
(define (loop-until start done? next body)
|
||||||
(let loop ([i start])
|
(let loop ([i start])
|
||||||
(unless (done? i)
|
(unless (done? i)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user