picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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

'<js>' generalized
Diffstat:
Mlib/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