X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=loopy.scm;h=1b5e29dea7510e139ad591d81367646962446785;hp=0a2cc44820c165ad000406417528fbd1231b35ae;hb=e892174a7c1aa9ab2567462b430718af7cdcfce8;hpb=d8527313ec9a47476020db8e82451746483492ee

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