[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] concurrency-libtask a0cba91f 1/2: Add missing defsubr
From: |
Philipp Stephani |
Subject: |
[Emacs-diffs] concurrency-libtask a0cba91f 1/2: Add missing defsubr |
Date: |
Tue, 25 Oct 2016 23:39:13 +0000 (UTC) |
branch: concurrency-libtask
commit a0cba91f723bf00464c700d4c6d8ba9a7d422c51
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