hellerve/context
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dumb typos

Browse Source
This commit is contained in:
hellerve
2016-09-12 22:06:42 +02:00
parent 8c3309576c
commit 33bd50666b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
context.zp
View File

@@ -8,14 +8,14 @@
- var: the name to bind to - var: the name to bind to
- body: varargs for the body - body: varargs for the body
complexity: O(1) complexity: O(1)
returns: the result of the resource cleanup"() returns: the result of the resource cleanup" ()
((_ val var body ...) ((_ val var body ...)
(let ((var val)) (let ((var val))
(begin (begin
body ... body ...
(teardown var)))))) (teardown var))))))
(defprotocol context-manager ((teardown 1))) (defprotocol context-manager (teardown 1))
(defimpl context-manager input-port? ((teardown close-input-file))) (defimpl context-manager input-port? ((teardown close-input-file)))
(defimpl context-manager output-port? ((teardown close-output-file))) (defimpl context-manager output-port? ((teardown close-output-file)))
(defimpl context-manager net:socket? ((teardown net:close-socket))) (defimpl context-manager net:socket? ((teardown net:close-socket)))