From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Wed, 18 Nov 2015 04:06:07 +0000 (-0600)
Subject: oh yeah define* not define
X-Git-Tag: v0.1.0~171
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=e892174a7c1aa9ab2567462b430718af7cdcfce8;p=8sync.git

oh yeah define* not define
---

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))