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

.

Browse Source 
original commit: 6e0d1a244164d428fc3375056664e2a2f98884bc
This commit is contained in:
Matthew Flatt 1998-08-15 21:15:04 +00:00
parent a28886716b
commit 8257c4306a
1 changed files with 0 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/mzlib/functior.ss
View File

@ -102,35 +102,6 @@
(lambda (l r) (lambda (l r)
(remove* l r eqv?)))) (remove* l r eqv?))))
(define dynamic-disable-break
(polymorphic
(lambda (thunk)
(parameterize ([break-enabled #f])
(thunk)))))
(define dynamic-wind/protect-break
(polymorphic
(lambda (a b c)
(let ([enabled? (break-enabled)])
(dynamic-disable-break
(lambda ()
(dynamic-wind
a
(if enabled?
(lambda () (dynamic-enable-break b))
b)
c)))))))
(define make-single-threader
(polymorphic
(lambda ()
(let ([sema (make-semaphore 1)])
(lambda (thunk)
(dynamic-wind
(lambda () (semaphore-wait sema))
thunk
(lambda () (semaphore-post sema))))))))
;; fold : ((A -> B) B (listof A) -> B) ;; fold : ((A -> B) B (listof A) -> B)
;; fold : ((A1 ... An -> B) B (listof A1) ... (listof An) -> B) ;; fold : ((A1 ... An -> B) B (listof A1) ... (listof An) -> B)