diff options
author | Arun Isaac | 2022-07-09 11:03:02 +0530 |
---|---|---|
committer | Arun Isaac | 2022-07-09 16:41:01 +0530 |
commit | a132df19eabf5d77b0eac7e870178803f1b0dd07 (patch) | |
tree | 5aaf88f84dd9e71c903cc558c4c594148afdbf33 /tissue/issue.scm | |
parent | 9dfd2836909cfbb7fc1d2fcc2b13ba42b680fe72 (diff) | |
download | tissue-a132df19eabf5d77b0eac7e870178803f1b0dd07.tar.gz tissue-a132df19eabf5d77b0eac7e870178803f1b0dd07.tar.lz tissue-a132df19eabf5d77b0eac7e870178803f1b0dd07.zip |
document: Generalize document-type method of <document> parent class.
* tissue/document.scm (document-type): Generalize generic method of
<document> to apply to most child classes. Pass on generic method of
<file-document> to that of <document>.
* tissue/issue.scm (document-type): Remove generic method for <issue>
class.
Diffstat (limited to 'tissue/issue.scm')
-rw-r--r-- | tissue/issue.scm | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index 2bc6b41..bbfe2cf 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -78,9 +78,6 @@ (author #:accessor post-author #:init-keyword #:author) (date #:accessor post-date #:init-keyword #:date)) -(define-method (document-type (issue <issue>)) - "issue") - (define-method (document-term-generator (issue <issue>)) "Return a term generator indexing ISSUE." (let ((term-generator (next-method))) |