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* ... ((_ name doc fmt fields fields* ...
where predicate where predicate
sort-by sort-predicate sort-field) sort-by sort-predicate sort-field)
(with-syntax ((viewname (with-syntax ((view-name
(datum->syntax (datum->syntax
x (symbol-append (syntax->datum #'name) '-view))) x (symbol-append (syntax->datum #'name) '-view)))
(filtered-list (filtered-list
@ -37,7 +37,7 @@
#'(fields fields* ...)))) #'(fields fields* ...))))
todo-list))) todo-list)))
#`(begin #`(begin
(define (viewname) (define (view-name)
doc doc
(for-each (for-each
(lambda (item) (lambda (item)
@ -60,7 +60,7 @@
#'filtered-list))) #'filtered-list)))
(set! view-list (set! view-list
(append view-list (append view-list
(list (cons 'name viewname))))))) (list (cons 'name view-name)))))))
((_ name doc fmt fields fields* ... ((_ name doc fmt fields fields* ...
sort-by sort-predicate sort-field) sort-by sort-predicate sort-field)
#'(define-view name doc fmt fields fields* ... #'(define-view name doc fmt fields fields* ...