diff --git a/scheme/httpd/surflets/surflet-sxml.scm b/scheme/httpd/surflets/surflet-sxml.scm index e37a1a4..bcdb207 100644 --- a/scheme/httpd/surflets/surflet-sxml.scm +++ b/scheme/httpd/surflets/surflet-sxml.scm @@ -58,10 +58,9 @@ (define input-field-rule `(,*input-field-trigger* *preorder* - . ,(lambda (trigger input-field) + . ,(lambda input-field (surflet-sxml->low-level-sxml - ;; We need a real input-field for input-field-html-tree. - (input-field-html-tree (list trigger input-field)))))) + (input-field-html-tree input-field))))) (define surflet-sxml-rules `(,@default-rules