[Emacs-diffs] concurrency-libtask 7be3718 07/10: Add missing defsubr

[Philipp Stephani]

branch: concurrency-libtask
commit 7be3718a184b4f7534bc018084695b646c828384
Author: Philipp Stephani <address@hidden>
Commit: Philipp Stephani <address@hidden>

    Add missing defsubr
---
 src/coroutine.c             |    1 +
 test/src/coroutine-tests.el |    5 +++++
 2 files changed, 6 insertions(+)

diff --git a/src/coroutine.c b/src/coroutine.c
index 5eae40b..929dd98 100644
--- a/src/coroutine.c
+++ b/src/coroutine.c
@@ -458,6 +458,7 @@ syms_of_coroutine (void)
   Funintern (Qpending_coroutine_error_data, Qnil);
 
   defsubr (&Sstart_coroutine);
+  defsubr (&Schannelp);
   defsubr (&Sreceive_from_channel);
   defsubr (&Stry_receive_from_channel);
   defsubr (&Ssend_to_channel);
diff --git a/test/src/coroutine-tests.el b/test/src/coroutine-tests.el
index 778f3de..ef2917c 100644
--- a/test/src/coroutine-tests.el
+++ b/test/src/coroutine-tests.el
@@ -168,4 +168,9 @@
   (let ((err (should-error (sleep-for 0.1))))
     (should (equal err '(beginning-of-buffer foo)))))
 
+(ert-deftest channelp ()
+  (should-not (channelp nil))
+  (should-not (channelp 5))
+  (should (channelp (make-channel))))
+
 ;;; coroutine-tests.el ends here