From 8257c4306aa29277f3cead4fcf3f75b3d5b487f8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 15 Aug 1998 21:15:04 +0000
Subject: [PATCH] .

original commit: 6e0d1a244164d428fc3375056664e2a2f98884bc
---
 collects/mzlib/functior.ss | 29 -----------------------------
 1 file changed, 29 deletions(-)

diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index 5b083b9..4875c0b 100644
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@@ -102,35 +102,6 @@
       (lambda (l r)
 	(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 : ((A1 ... An -> B) B (listof A1) ... (listof An) -> B)