Rename callback-functor to callback-function.

scheme/httpd/surflets/callbacks.scm

@@ -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))))

scheme/httpd/surflets/packages.scm

@@ -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)

scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm

@@ -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 '"