scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/httpd/surflets/surflet-sxml.scm
View File

@ -58,10 +58,9 @@
(define input-field-rule (define input-field-rule
`(,*input-field-trigger* `(,*input-field-trigger*
*preorder* *preorder*
. ,(lambda (trigger input-field) . ,(lambda input-field
(surflet-sxml->low-level-sxml (surflet-sxml->low-level-sxml
;; We need a real input-field for input-field-html-tree. (input-field-html-tree input-field)))))
(input-field-html-tree (list trigger input-field))))))
(define surflet-sxml-rules (define surflet-sxml-rules
`(,@default-rules `(,@default-rules