From 4caaa001c7bfea848655a1840000db2d19c7dcd5 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sun, 13 Jul 2003 10:22:21 +0000
Subject: [PATCH] Don't unwrap and rewrap real-input-field in input-field-rule.

---
 scheme/httpd/surflets/surflet-sxml.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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