xep 0114: wrap expressions in sugar
authorrekado <rekado@elephly.net>
Thu, 27 Nov 2014 09:15:49 +0000 (10:15 +0100)
committerrekado <rekado@elephly.net>
Thu, 27 Nov 2014 09:15:49 +0000 (10:15 +0100)
xep-0114.scm

index f882530c837025be08672f5bb46bf5a0e569b2e9..9b9440819be449ef85b6575a24a9e6b9f1c6f662 100644 (file)
@@ -1,5 +1,6 @@
 (define-module (gnubba xep-0114)
   #:use-module (gnubba sha1)
+  #:use-module (gnubba sugar)
   #:use-module (ice-9 rdelim)
   #:use-module (ice-9 regex)
   #:use-module (sxml simple)
@@ -76,7 +77,7 @@
                  ;; are evaluated in the xmpp monad.
                  (display "Registering handlers...\n")
                  (begin
-                   exp ...)
+                   (xmpp-> sock exp ...))
 
                  ;; Blocking wait for stanzas.  At this
                  ;; point, new handler can only be