Add comment noting that the "web" system needs a rewrite.

[8sync.git] / 8sync / systems / web.scm

diff --git a/8sync/systems/web.scm b/8sync/systems/web.scm
index 2dcaf5167f1e1c2ffaa1cfa33937dd2fcf5b3ad0..3fd25ea32e2fd675461bd3bcaab69f240a2750c8 100644 (file)
--- a/8sync/systems/web.scm
+++ b/8sync/systems/web.scm
@@ -22,6 +22,9 @@
 
 ;; This is a very preliminary web module.
 
 
 ;; 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)
 (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)
         ((client-conn . socket-address)
          (define (close-and-dequeue)
            (close client-conn)

-           (%8sync-port-remove client-conn))
+           (8sync-port-remove client-conn))

 
          (catch
            #t
 
          (catch
            #t


@@ -103,7 +106,7 @@ don't totally failboat"
                    (lambda ()
                      (call-with-values
                          (lambda ()
                    (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))
                            ;;  It's more indirection but might give breathing
                            ;;  room to other requests...
                            (handler request request-body))


@@ -161,8 +164,8 @@ don't totally failboat"
           (agenda (make-agenda
                    #:queue q
                    #:pre-unwind-handler print-error-and-continue)))
           (agenda (make-agenda
                    #:queue q
                    #:pre-unwind-handler print-error-and-continue)))

-     ;; (if coop-repl
-     ;;     (spawn-and-queue-repl-server! agenda))
+     (if coop-repl
+         (spawn-and-queue-repl-server! agenda))

      (start-agenda agenda))))
 
 (define* (make-web-demo-cli #:key
      (start-agenda agenda))))
 
 (define* (make-web-demo-cli #:key