diff --git a/scheme/httpd/surflets/callbacks.scm b/scheme/httpd/surflets/callbacks.scm index 29d5032..6662eab 100644 --- a/scheme/httpd/surflets/callbacks.scm +++ b/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)))) diff --git a/scheme/httpd/surflets/packages.scm b/scheme/httpd/surflets/packages.scm index a25f7b1..13e12de 100644 --- a/scheme/httpd/surflets/packages.scm +++ b/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) diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm index 7028065..a007c6e 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm +++ b/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