Changeset 38596 in project for release

Timestamp:

04/07/20 04:04:26 (4 months ago)

Author:

Kon Lovett

Message:

add use-timed-resource

Location:

release/5/timed-resource/trunk

Files:

• tests/timed-resource-test.scm (modified) (1 diff)
• timed-resource.egg (modified) (1 diff)
• timed-resource.scm (modified) (3 diffs)

release/5/timed-resource/trunk/tests/timed-resource-test.scm

@@ -63 +63 @@
       ;NOTE only because used once; brittle!
       (test-assert "Resource Cannot Be Open" (not (timed-resource-open? +tr+)))
-      (call-with-timed-resource +tr+ (cut read-blob cnt <>)) ) ) )
+      (use-timed-resource (+tr+ v) (read-blob cnt v)) ) ) )
 
 ;;;

release/5/timed-resource/trunk/timed-resource.egg

@@ -2 +2 @@
 
 ((synopsis "Resource w/ Timeout")
- (version "2.2.1")
+ (version "2.3.0")
  (category misc)
  (author "[[kon lovett]]")

release/5/timed-resource/trunk/timed-resource.scm

@@ -17 +17 @@
   timed-resource-name
   call-with-timed-resource
+  use-timed-resource
+  ;deprecated
   with-timed-resource)
 
@@ -253 +255 @@
       #f #f) ) )
 
-#; ;FIXME struct tag (timed-resource) & check-
-(define-syntax use-timed-resource
-  (syntax-rules ()
-    ((use-timed-resource (?tr ?v) ?body ...)
-      (let ((tr (check-timed-resource 'use-timed-resource ?tr)))
-        (unless (timed-resource-shutdown?) ;Shouldn't be necessary
-          (record-synch tr timed-resource
-            (let ((?v (timed-resource-aquire tr)))
-              ?body ...) ) ) ) ) ) )
-
-(define ( call-with-timed-resource tr proc)
+(define (call-with-timed-resource tr proc)
   (check-timed-resource 'with-timed-resource tr)
   (check-procedure 'with-timed-resource proc)
@@ -269 +261 @@
     (record-synch tr timed-resource (proc (timed-resource-aquire tr))) ) )
 
+(define-syntax use-timed-resource
+  (syntax-rules ()
+    ((use-timed-resource (?tr ?v) ?body ...)
+      (call-with-timed-resource ?tr (lambda (?v) ?body ...)) ) ) )
+
 ) ;module timed-resource