picolisp

commit c06aff4efab5025f00019dd1bb9ffb4eeb3c8320
parent 726ff9a9c7d7ed70a5569a9376cec7b25f0e4635
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  4 Mar 2012 10:52:44 +0100

Minor: Pass optional args to 'html>'
Diffstat:
M
lib/http.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/http.l b/lib/http.l
@@ -1,4 +1,4 @@
-# 02jan12abu
+# 04mar12abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked
@@ -208,7 +208,7 @@
                   (cond
                      ((match '("-" @X "." "h" "t" "m" "l") @U)
                         (and *SesId (timeout *Timeout))
-                        (try 'html> (extern (ht:Pack @X))) )
+                        (apply try L 'html> (extern (ht:Pack @X))) )
                      ((disallowed)
                         (notAllowed *Url)
                         (http404) )