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

Rename callback-functor to callback-function.

This commit is contained in:
interp 2003-08-01 15:02:43 +00:00
parent 0656c89fca
commit d26c61799b
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/callbacks.scm
View File

@ -32,6 +32,6 @@ unexpected return values from website"))))))
(lambda args (lambda args
(annotated-address callback args)))) (annotated-address callback args))))
(define callback-functor (define callback-function
(lambda (req proc . args) (lambda (req proc . args)
(apply proc (cons req args)))) (apply proc (cons req args))))

2
scheme/httpd/surflets/packages.scm
View File

@ -371,7 +371,7 @@
(define-interface surflets/callbacks-interface (define-interface surflets/callbacks-interface
(export make-callback (export make-callback
make-annotated-callback make-annotated-callback
callback-functor)) callback-function))
;; Returned-via (dispatcher for input-fields and intelligent ;; Returned-via (dispatcher for input-fields and intelligent
;; addresses) ;; addresses)

6
scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm
View File

@ -83,7 +83,7 @@
(let* ((update-text (:optional maybe-update-text "")) (let* ((update-text (:optional maybe-update-text ""))
(loaded-surflets (sort-list! (get-loaded-surflets) string<?)) (loaded-surflets (sort-list! (get-loaded-surflets) string<?))
(outdated? (make-outdater)) (outdated? (make-outdater))
(callback (make-annotated-callback callback-functor)) (callback (make-annotated-callback callback-function))
(title "SUrflet-Administration -- SUrflets") (title "SUrflet-Administration -- SUrflets")
(header `((h1 "SUrflet Administration") (header `((h1 "SUrflet Administration")
(h2 "SUrflets") (h2 "SUrflets")
@ -179,7 +179,7 @@
(define (real-sessions current-sessions update-text this-session-id) (define (real-sessions current-sessions update-text this-session-id)
(let* ((outdated? (make-outdater)) (let* ((outdated? (make-outdater))
(callback (make-annotated-callback callback-functor)) (callback (make-annotated-callback callback-function))
(title "SUrflet Adminstration - Sessions") (title "SUrflet Adminstration - Sessions")
(header `((h1 "SUrflet Administration") (header `((h1 "SUrflet Administration")
(h2 "Sessions") (h2 "Sessions")
@ -273,7 +273,7 @@
(sort-list! (get-continuations session-id) (sort-list! (get-continuations session-id)
continuation-id<?)) continuation-id<?))
(outdated? (make-outdater)) (outdated? (make-outdater))
(callback (make-annotated-callback callback-functor)) (callback (make-annotated-callback callback-function))
(header (cons header1 (header (cons header1
`((h2 "Continuations of " ,session-id) `((h2 "Continuations of " ,session-id)
(p "(belongs to the SUrflet '" (p "(belongs to the SUrflet '"