Changeset 8227 in project


Ignore:
Timestamp:
02/06/08 20:44:41 (12 years ago)
Author:
graham
Message:

bugfix, tag attributes are now evaluated once, not twice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/hart/trunk/hart-support.scm

    r8217 r8227  
    115115                  (if ((disjoin string? number?) value)
    116116                      (hart-emit (format " ~a=\"~a\"" key (hart-html-escape value)))
    117                       (hart-emit `(when ,value
    118                                     (print* ,(format " ~a=\"" key)
    119                                             (hart-html-escape ,value)
    120                                             "\"")))))
     117                      (hart-emit (let ((val (gensym)))
     118                                   `(let ((,val ,value))
     119                                     (when ,val
     120                                       (print* ,(format " ~a=\"" key)
     121                                               (hart-html-escape ,val)
     122                                               "\"")))))))
    121123        ))
    122124  (hart-emit (if single? "/>" ">")))
Note: See TracChangeset for help on using the changeset viewer.