Browse files

correct register-channel-page

  • Loading branch information...
1 parent 55de83d commit 041f78d2864fd9592847c696b64db210b2b26f07 @vii committed May 8, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/webapp/channel.lisp
View
2 src/webapp/channel.lisp
@@ -105,7 +105,7 @@
(apply original-hangup-handler args)))))))))))
(defun register-channel-page (&optional (url (site-action-page-name (current-site))))
- (dispatcher-register-path url #'channel-respond-page))
+ (dispatcher-register-path (site-dispatcher (current-site)) url #'channel-respond-page))
(my-defun channel 'object-to-ml ()
(js-html-script (channel (unquote (force-string (my id))) (unquote (my state)))))

0 comments on commit 041f78d

Please sign in to comment.