diff options
Diffstat (limited to 'undone/main.scm')
| -rw-r--r-- | undone/main.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/undone/main.scm b/undone/main.scm index 2f7c535..30f16bc 100644 --- a/undone/main.scm +++ b/undone/main.scm @@ -26,7 +26,7 @@ ((_ name doc fmt fields fields* ... where predicate sort-by sort-predicate sort-field) - (with-syntax ((viewname + (with-syntax ((view-name (datum->syntax x (symbol-append (syntax->datum #'name) '-view))) (filtered-list @@ -37,7 +37,7 @@ #'(fields fields* ...)))) todo-list))) #`(begin - (define (viewname) + (define (view-name) doc (for-each (lambda (item) @@ -60,7 +60,7 @@ #'filtered-list))) (set! view-list (append view-list - (list (cons 'name viewname))))))) + (list (cons 'name view-name))))))) ((_ name doc fmt fields fields* ... sort-by sort-predicate sort-field) #'(define-view name doc fmt fields fields* ... |