From 33bd50666ba9d6b58a0e33fc4bad437bfdf65042 Mon Sep 17 00:00:00 2001 From: hellerve Date: Mon, 12 Sep 2016 22:06:42 +0200 Subject: [PATCH] dumb typos --- context.zp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))