(def tag-options (spec options)
  (if (no options)
      '()
      (let ((opt val) . rest) options
        (let meth (if (is opt 'style) opstring (opmeth spec opt))
          (if meth
              (if val
                  (cons (meth opt val)
                        (tag-options spec rest))
                  (tag-options spec rest))
              (do
                (pr "")
                (tag-options spec rest)))))))

From html.arc ©