diff options
| -rw-r--r-- | module/output/html.scm | 8 | ||||
| -rw-r--r-- | module/util.scm | 14 |
2 files changed, 11 insertions, 11 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index fc4199ee..4cc39be6 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -259,10 +259,10 @@ (map (lambda (p) `(td (@ ,@(assq-merge '((class " cur ")) (cdar p))) ,@(cdr p))) (map (lambda (d) `((@ (class ,(when (date=? today (set (date-day date) d)) - "today"))) - (a (@ (href "#" ,(date->string date "~Y-~m-") - ,(pad0 d)) - (class "hidelink")) ,d))) + "today"))) + (a (@ (href "#" ,(date->string date "~Y-~m-") + ,(pad0 d)) + (class "hidelink")) ,d))) (iota month-len 1))) (map (td '(class "next") (month+ date)) (iota (modulo (- (* 7 5) month-len month-start) 7) 1)))))) diff --git a/module/util.scm b/module/util.scm index 5f5eeb83..ca74470e 100644 --- a/module/util.scm +++ b/module/util.scm @@ -96,13 +96,13 @@ (define (%define-quick-record internal-define bang? name fields) (let ((symb (gensym))) `((,internal-define ,(class-name name) - (,(constructor name) ,@fields) - ,(pred name) - ,@(map (lambda (f) `(,f ,(getter f symb) ,(setter f symb bang?))) - fields)) - ,@(map (lambda (f) `(define ,f (make-procedure-with-setter - ,(getter f symb) ,(setter f symb bang?)))) - fields)))) + (,(constructor name) ,@fields) + ,(pred name) + ,@(map (lambda (f) `(,f ,(getter f symb) ,(setter f symb bang?))) + fields)) + ,@(map (lambda (f) `(define ,f (make-procedure-with-setter + ,(getter f symb) ,(setter f symb bang?)))) + fields)))) ;;; Creates srfi-9 define{-immutable,}-record-type declations. ;;; Also creates srfi-17 accessor ((set! (access field) value)) |