Skip to content
Browse files

Underscore stripping was buggy.

  • Loading branch information...
1 parent 0aebd1c commit 071d7ca1f2bb10c5bc185380f0169545f80dc340 John Stracke committed Feb 9, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 modules/htmlout.+
View
4 modules/htmlout.+
@@ -29,11 +29,11 @@
`(defun ,(tag-to-sym tag) (&rest text-and-children &key ,@attrs)
(yield "<")
(yield ,(str tag))
- ,@(map (lambda (a) `(when ,(mk-symbol (strip-underscore (str a)))
+ ,@(map (lambda (a) `(when ,a
(yield " ")
(yield ,(strip-underscore (str a)))
(yield "=\"")
- (yield (str ,(strip-underscore a)))
+ (yield (str ,a))
(yield "\"")))
attrs)
(yield ">")

0 comments on commit 071d7ca

Please sign in to comment.
Something went wrong with that request. Please try again.