X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Fsystems%2Fweb.scm;h=3fd25ea32e2fd675461bd3bcaab69f240a2750c8;hb=3a5ac69d528e040b1896b249a06f22b8527ca3ea;hp=602e06f827f08ce835cf02ed8eb50678a4e07fbc;hpb=8736abc829c650971686d2d840d4fdacd970edd8;p=8sync.git

diff --git a/8sync/systems/web.scm b/8sync/systems/web.scm
index 602e06f..3fd25ea 100644
--- a/8sync/systems/web.scm
+++ b/8sync/systems/web.scm
@@ -22,6 +22,9 @@
 
 ;; This is a very preliminary web module.
 
+;;; TODO: This is using deprecated code and needs a rewrite after the
+;;; suspendable-ports merge.
+
 (define-module (8sync systems web)
   #:use-module (web server)
   #:use-module (web request)
@@ -92,7 +95,7 @@ don't totally failboat"
         ((client-conn . socket-address)
          (define (close-and-dequeue)
            (close client-conn)
-           (%8sync-port-remove client-conn))
+           (8sync-port-remove client-conn))
 
          (catch
            #t
@@ -103,7 +106,7 @@ don't totally failboat"
                    (lambda ()
                      (call-with-values
                          (lambda ()
-                           ;; @@: Is it useful to wrap this in %8sync-run?
+                           ;; @@: Is it useful to wrap this in 8sync-run?
                            ;;  It's more indirection but might give breathing
                            ;;  room to other requests...
                            (handler request request-body))