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

View File

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

View File

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

View File

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