summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/tissue2
-rw-r--r--tissue/issue.scm4
-rw-r--r--tissue/web.scm2
3 files changed, 4 insertions, 4 deletions
diff --git a/bin/tissue b/bin/tissue
index c0514fb..9273482 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -257,7 +257,7 @@ List issues.
(list-transduce (compose (tenumerate 1)
(tfilter (match-lambda
((_ . issue)
- (and (issue-open issue)
+ (and (issue-open? issue)
(or (not (assq 'assigned args))
(member (assq-ref args 'assigned)
(issue-assigned issue)))))))
diff --git a/tissue/issue.scm b/tissue/issue.scm
index 6a71874..9505e21 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -39,7 +39,7 @@
issue-last-updated-relative-date
issue-assigned
issue-keywords
- issue-open
+ issue-open?
issue-tasks
issue-completed-tasks
issue-posts
@@ -60,7 +60,7 @@
(last-updated-relative-date issue-last-updated-relative-date)
(assigned issue-assigned)
(keywords issue-keywords)
- (open issue-open)
+ (open issue-open?)
(tasks issue-tasks)
(completed-tasks issue-completed-tasks)
(posts issue-posts))
diff --git a/tissue/web.scm b/tissue/web.scm
index c2acbcd..fa804a4 100644
--- a/tissue/web.scm
+++ b/tissue/web.scm
@@ -180,7 +180,7 @@ default, all issues are listed newest first."
#:last-updated-relative-date (issue-last-updated-relative-date issue)
#:assigned (issue-assigned issue)
#:keywords (issue-keywords issue)
- #:open (issue-open issue)
+ #:open (issue-open? issue)
#:tasks (issue-tasks issue)
#:completed-tasks (issue-completed-tasks issue)
#:posts (issue-posts issue)))