oh yeah define* not define

[8sync.git] / loopy.scm

diff --git a/loopy.scm b/loopy.scm
index 0a2cc44820c165ad000406417528fbd1231b35ae..1b5e29dea7510e139ad591d81367646962446785 100644 (file)
--- 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))