diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm index bb8173b..bc4f126 100644 --- a/scheme/httpd/surflets/surflet-input-fields.scm +++ b/scheme/httpd/surflets/surflet-input-fields.scm @@ -255,7 +255,7 @@ select-options (map make-simple-select-option select-options))) -(define (make-select select-options maybe-further-attributes) +(define (make-select select-options . maybe-further-attributes) (let ((real-select-options (simple-options select-options))) (let-optionals maybe-further-attributes ((multiple? #f boolean?)