picolisp

commit 8ee85627690fa96ff1662d37174dedb05f940923
parent 7b511c9028ab998ef54d685834ba0b0f950370bb
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed,  6 Mar 2013 13:32:09 +0100

'<js>' generalized
Diffstat:
M
lib/xhtml.l
 | 
7
++++---

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lib/xhtml.l b/lib/xhtml.l
@@ -1,4 +1,4 @@
-# 24jul12abu
+# 06mar13abu
 # (c) Software Lab. Alexander Burger
 
 # *JS "*JS" *Style *Menu *Tab *ID
@@ -58,8 +58,9 @@
 (de <tag> (Nm Attr . Prg)
    (tag Nm Attr 2 Prg) )
 
-(de <js> ("*JS" . "Prg")
-   (run "Prg") )
+(de <js> ("JS" . "Prg")
+   (let "*JS" (append "*JS" "JS")
+      (run "Prg") ) )
 
 (de style (X Prg)
    (let *Style