- Timestamp:
- 04/07/20 04:04:26 (10 months ago)
- Location:
- release/5/timed-resource/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/timed-resource/trunk/tests/timed-resource-test.scm
r38579 r38596 63 63 ;NOTE only because used once; brittle! 64 64 (test-assert "Resource Cannot Be Open" (not (timed-resource-open? +tr+))) 65 ( call-with-timed-resource +tr+ (cut read-blob cnt <>)) ) ) )65 (use-timed-resource (+tr+ v) (read-blob cnt v)) ) ) ) 66 66 67 67 ;;; -
release/5/timed-resource/trunk/timed-resource.egg
r38579 r38596 2 2 3 3 ((synopsis "Resource w/ Timeout") 4 (version "2. 2.1")4 (version "2.3.0") 5 5 (category misc) 6 6 (author "[[kon lovett]]") -
release/5/timed-resource/trunk/timed-resource.scm
r38579 r38596 17 17 timed-resource-name 18 18 call-with-timed-resource 19 use-timed-resource 20 ;deprecated 19 21 with-timed-resource) 20 22 … … 253 255 #f #f) ) ) 254 256 255 #; ;FIXME struct tag (timed-resource) & check- 256 (define-syntax use-timed-resource 257 (syntax-rules () 258 ((use-timed-resource (?tr ?v) ?body ...) 259 (let ((tr (check-timed-resource 'use-timed-resource ?tr))) 260 (unless (timed-resource-shutdown?) ;Shouldn't be necessary 261 (record-synch tr timed-resource 262 (let ((?v (timed-resource-aquire tr))) 263 ?body ...) ) ) ) ) ) ) 264 265 (define ( call-with-timed-resource tr proc) 257 (define (call-with-timed-resource tr proc) 266 258 (check-timed-resource 'with-timed-resource tr) 267 259 (check-procedure 'with-timed-resource proc) … … 269 261 (record-synch tr timed-resource (proc (timed-resource-aquire tr))) ) ) 270 262 263 (define-syntax use-timed-resource 264 (syntax-rules () 265 ((use-timed-resource (?tr ?v) ?body ...) 266 (call-with-timed-resource ?tr (lambda (?v) ?body ...)) ) ) ) 267 271 268 ) ;module timed-resource
Note: See TracChangeset
for help on using the changeset viewer.