diff --git a/scheme/httpd/surflets/packages.scm b/scheme/httpd/surflets/packages.scm index 6afc142..1a21b24 100644 --- a/scheme/httpd/surflets/packages.scm +++ b/scheme/httpd/surflets/packages.scm @@ -148,7 +148,7 @@ generate-input-field-name make-input-field - make-upper-input-field + make-higher-input-field make-text-input-field make-hidden-input-field make-password-input-field diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm index 89a6540..69050c9 100644 --- a/scheme/httpd/surflets/surflets.scm +++ b/scheme/httpd/surflets/surflets.scm @@ -269,7 +269,7 @@ (define (make-input-field name transformer HTML-tree) (list 'input-field (real-make-input-field name transformer HTML-tree #f))) -(define (make-upper-input-field transformer HTML-tree) +(define (make-higher-input-field transformer HTML-tree) (list 'input-field (real-make-input-field #f transformer HTML-tree #t))) ;; PRED-LIST contains list of predicates that recognizes optional @@ -444,7 +444,7 @@ #\newline ,SXML-options))) (if multiple? - (make-upper-input-field (make-multiple-transformer name) SXML) + (make-higher-input-field (make-multiple-transformer name) SXML) (make-input-field name identity SXML))))))) ;; returns a *list* of radio buttons diff --git a/scheme/httpd/surflets/web-server/root/surflets/byte-input.scm b/scheme/httpd/surflets/web-server/root/surflets/byte-input.scm index 17155f7..a9d0c17 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/byte-input.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/byte-input.scm @@ -20,7 +20,7 @@ (make-checkbox-input-field (number->string order)) (loop (+ 1 count) (* 2 order)))))))) - (make-upper-input-field + (make-higher-input-field (lambda (bindings) (let loop ((sum 0) (checkboxes checkboxes))