From c5dac997f4fccadbab199567ead1fcbcf4fdb211 Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Mon, 10 Sep 2012 21:56:42 +0200
Subject: [PATCH] Rename viewname to view-name

* undone/main.scm (define-view): Looks nicer
---
 undone/main.scm | 6 +++---
 1 file 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* ...