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

This commit is contained in:
interp 2003-07-13 10:22:21 +00:00
parent 7e76eac6c8
commit 4caaa001c7
1 changed files with 2 additions and 3 deletions

View File

@ -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