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