Changeset 8634 in project


Ignore:
Timestamp:
02/22/08 20:49:02 (12 years ago)
Author:
graham
Message:

damn, really fixed the bug this time. removed hart syntax dependency from hart-support.

File:
1 edited

Legend:

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

    r8334 r8634  
    115115      (begin
    116116        (hart-emit (format "<~a" tag))
    117         (hart-for ((key value) attrs)
    118                   (if ((disjoin string? number?) value)
    119                       (hart-emit (format " ~a=\"~a\"" key (hart-html-escape value)))
    120                       (hart-emit (let ((val (gensym)))
    121                                    `(let ((,val ,value))
    122                                      (when ,val
    123                                        (hart-print ,(format " ~a=\"" key)
    124                                                (hart-html-escape ,val)
    125                                                "\"")))))))
    126         ))
     117        (for-each
     118         (lambda (iter3)
     119           (match-let
     120            (((key value) iter3))
     121            (if ((disjoin string? number?) value)
     122                (hart-emit (format " ~a=\"~a\"" key (hart-html-escape value)))
     123                (hart-emit
     124                 (let ((val (gensym)))
     125                   `(let ((,val ,value))
     126                      (when ,val
     127                            (hart-print
     128                             ,(format " ~a=\"" key)
     129                             (hart-html-escape ,val)
     130                             "\""))))))))
     131         attrs)))
    127132  (hart-emit (if single? "/>" ">")))
    128133
Note: See TracChangeset for help on using the changeset viewer.