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

Minor change in FIND-IMAGE-BUTTON-COORDINATE.

This commit is contained in:
interp 2003-07-14 09:10:36 +00:00
parent 44268c5c4a
commit b532f8a991
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/httpd/surflets/surflet-input-fields.scm
View File

@ -500,8 +500,7 @@
(let* ((name (input-field-name image-button))) (let* ((name (input-field-name image-button)))
(cond (cond
((assoc (string-append name suffix) bindings) ((assoc (string-append name suffix) bindings)
=> (lambda (pair) => cdr)
(cdr pair)))
(else #f)))) (else #f))))
;;EOF ;;EOF