Minor change in FIND-IMAGE-BUTTON-COORDINATE.

2003-07-14 09:10:36 +00:00 · 2003-07-14 09:10:36 +00:00 · b532f8a991
parent 44268c5c4a
commit b532f8a991
1 changed files with 1 additions and 2 deletions
--- a/scheme/httpd/surflets/surflet-input-fields.scm
+++ b/scheme/httpd/surflets/surflet-input-fields.scm
@ -500,8 +500,7 @@
  (let* ((name (input-field-name image-button)))
    (cond 
     ((assoc (string-append name suffix) bindings)
-      => (lambda (pair)
-	   (cdr pair)))
+      => cdr)
     (else #f))))

 ;;EOF