From cad4fe21cf3c1df5f4973534387b4eb63a61de55 Mon Sep 17 00:00:00 2001 From: interp Date: Sun, 13 Jul 2003 14:35:33 +0000 Subject: [PATCH] Minor change in args of MAKE-INPUT-FIELD-SETTER! --- scheme/httpd/surflets/input-fields.scm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/scheme/httpd/surflets/input-fields.scm b/scheme/httpd/surflets/input-fields.scm index ddb1268..d4df0e4 100644 --- a/scheme/httpd/surflets/input-fields.scm +++ b/scheme/httpd/surflets/input-fields.scm @@ -90,13 +90,12 @@ (with-real-input-field input-field (selector real-input-field)))) -(define (make-input-field-setter setter . maybe-reset?) - (let ((reset? (:optional maybe-reset? #f))) - (lambda (input-field value) - (with-real-input-field input-field - (if reset? - (set-real-input-field-html-tree! real-input-field #f)) - (setter real-input-field value))))) +(define (make-input-field-setter setter reset?) + (lambda (input-field value) + (with-real-input-field input-field + (if reset? + (set-real-input-field-html-tree! real-input-field #f)) + (setter real-input-field value)))) (define input-field-name (make-input-field-selector real-input-field-name)) (define input-field-type (make-input-field-selector real-input-field-type)) @@ -120,9 +119,11 @@ (define input-field-multi? (make-input-field-selector real-input-field-multi?)) -(define set-input-field-attributes! (make-input-field-setter set-real-input-field-attributes! #t)) +(define set-input-field-attributes! + (make-input-field-setter set-real-input-field-attributes! #t)) ;; not exported: -(define set-input-field-html-tree! (make-input-field-setter set-real-input-field-html-tree!)) +(define set-input-field-html-tree! + (make-input-field-setter set-real-input-field-html-tree! #f)) ;; A touched input-field's html-tree will be recalculated if ;; neccessary. @@ -132,7 +133,7 @@ ;; : '(input-field . ) ;; : #{Real-input-field "name"} (define (raw-input-field-value input-field bindings) - (let ((real-input-field (cadr input-field))) + (with-real-input-field input-field (cond ((real-input-field-multi? real-input-field) ((real-input-field-transformer real-input-field) input-field bindings))