From e892174a7c1aa9ab2567462b430718af7cdcfce8 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Tue, 17 Nov 2015 22:06:07 -0600 Subject: [PATCH] oh yeah define* not define --- loopy.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/loopy.scm b/loopy.scm index 0a2cc44..1b5e29d 100644 --- a/loopy.scm +++ b/loopy.scm @@ -25,7 +25,7 @@ (define (make-port-mapping) (make-hash-table)) -(define (port-mapping-set! port-mapping port #:optional read write except) +(define* (port-mapping-set! port-mapping port #:optional read write except) "Sets port-mapping for reader / writer / exception handlers" (if (not (or read write except)) (throw 'no-handlers-given "No handlers given for port" port)) -- 2.31.1