branch: elpa/gnosis
commit a923f87ec74e57b7816d294d29819bc051f83322
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
cloze: assertions: Hypothesis should be equal or less.
---
gnosis.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gnosis.el b/gnosis.el
index 919e3c8fd8..0232a5f5a5 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1710,9 +1710,9 @@ LINKS: List of id links in PARATHEMA."
(cl-assert (integerp deck-id) nil "Deck-id value must be an integer.")
(cl-assert (stringp type) nil "Type must be a string.")
(cl-assert (stringp keimenon) nil "Keimenon must be a string.")
- (cl-assert (or (= (length answer) (length hypothesis))
+ (cl-assert (or (>= (length answer) (length hypothesis))
(null hypothesis))
- nil "Hypothesis value must be a list or nil, equal in length of
Answer.")
+ nil "Hypothesis value must be a list or nil, less or equal in
length of Answer.")
(cl-assert (listp answer) nil "Answer value must be a list.")
(cl-assert (listp tags) nil "Tags must be a list.")
(cl-assert (or (= suspend 0)
