Don't unwrap and rewrap real-input-field in input-field-rule.

2003-07-13 10:22:21 +00:00 · 2003-07-13 10:22:21 +00:00 · 4caaa001c7
parent 7e76eac6c8
commit 4caaa001c7
1 changed files with 2 additions and 3 deletions
--- 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