ryuslash/undone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Rename viewname to view-name

Browse source 
* undone/main.scm (define-view): Looks nicer
This commit is contained in:
Tom Willemsen 2012-09-10 21:56:42 +02:00
parent 271b33f910
commit c5dac997f4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
undone/main.scm
View file

@ -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* ...