Don't unwrap and rewrap real-input-field in input-field-rule.
This commit is contained in:
parent
7e76eac6c8
commit
4caaa001c7
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue