diff options
| author |  Tom Willemsen | 2012-09-10 21:56:42 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-09-10 21:56:42 +0200 |
| commit | c5dac997f4fccadbab199567ead1fcbcf4fdb211 (patch) | |
| tree | 4f05c13b3a769c8f59d9e2ca5c3057384ed6ea3f | |
| parent | 271b33f91073a4b05a0f2a30bc14b947c7beff69 (diff) | |
| download | undone-c5dac997f4fccadbab199567ead1fcbcf4fdb211.tar.gz undone-c5dac997f4fccadbab199567ead1fcbcf4fdb211.zip | |
Rename viewname to view-name
* undone/main.scm (define-view): Looks nicer
| -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* ... |