Fix make binary on Termux: remove invalid http-post-stream except clause

ober

eecd87174757c7ec8457efccd9d605ce9c0b5469

diff --git a/lib/jcode/core/agent.sls b/lib/jcode/core/agent.sls
index 12a7092..0bcc80b 100644
--- a/lib/jcode/core/agent.sls
+++ b/lib/jcode/core/agent.sls
@@ -143,14 +143,14 @@
        (let ([trimmed (string-trim args-str)])
          (if (string=? trimmed "")
              "{}"
-             (or (guard (e [#t #f])
+             (or (guard (e [list #t #f])
                    (let ([ht (string->json-object trimmed)])
                      (and (hash-table? ht) (json-object->string ht))))
-                 (guard (e [#t #f])
+                 (guard (e [list #t #f])
                    (let ([ht (string->json-object
                                (string-append "{" trimmed "}"))])
                      (and (hash-table? ht) (json-object->string ht))))
-                 (guard (e [#t #f])
+                 (guard (e [list #t #f])
                    (let ([ht (make-hash-table)])
                      (for-each
                        (lambda (pair)
@@ -318,7 +318,8 @@
   (def (execute-single-tool tc)
        (let* ([name (tool-call-name tc)]
               [raw-args (tool-call-arguments tc)]
-              [args (guard (e [#t #f]) (string->json-object raw-args))]
+              [args (guard (e [list #t #f])
+                      (string->json-object raw-args))]
               [cb (current-tool-cb)])
          (if (not args)
              (begin
diff --git a/lib/jcode/provider/provider.sls b/lib/jcode/provider/provider.sls
index 41b3816..9cacf80 100644
--- a/lib/jcode/provider/provider.sls
+++ b/lib/jcode/provider/provider.sls
@@ -10,10 +10,10 @@
     (except (chezscheme) make-hash-table hash-table? iota \x31;+ \x31;-
       getenv path-extension path-absolute? thread? make-mutex
       mutex? mutex-name)
-    (std text json) (except (std net request) http-post-stream)
-    (std net tls-rustls) (std net tcp) (std misc string)
-    (std misc retry) (jcode core log) (jcode core message)
-    (jerboa core) (jerboa runtime))
+    (std text json) (std net request) (std net tls-rustls)
+    (std net tcp) (std misc string) (std misc retry)
+    (jcode core log) (jcode core message) (jerboa core)
+    (jerboa runtime))
   (def logger (make-logger "provider"))
   (def *api-retry-policy* (make-retry-policy 3 1.0 30.0 #t))
   (def (retryable-error? e)
@@ -703,7 +703,7 @@
                                      (cond
                                        [(equal? data "[DONE]") (void)]
                                        [else
-                                        (let ([json (guard (e [#t #f])
+                                        (let ([json (guard (e [list #t #f])
                                                       (string->json-object
                                                         data))])
                                           (when (and json
@@ -883,7 +883,7 @@
                                                (string-length line)))]))
                                       lines)
                                     (when (and event-type data-str)
-                                      (let ([json (guard (e [#t #f])
+                                      (let ([json (guard (e [list #t #f])
                                                     (string->json-object
                                                       data-str))])
                                         (when (and json (hash-table? json))
diff --git a/lib/jcode/ui/cli.sls b/lib/jcode/ui/cli.sls
index d1b549d..0727a8e 100644
--- a/lib/jcode/ui/cli.sls
+++ b/lib/jcode/ui/cli.sls
@@ -412,7 +412,7 @@
            (if idx
                (let ([json-start (string-contains msg "{")])
                  (if json-start
-                     (guard (ex [#t msg])
+                     (guard (ex [list #t msg])
                        (let* ([json-str (substring
                                           msg
                                           json-start
diff --git a/lib/jcode/ui/tui-ffi.sls b/lib/jcode/ui/tui-ffi.sls
index e3a7b17..12b3116 100644
--- a/lib/jcode/ui/tui-ffi.sls
+++ b/lib/jcode/ui/tui-ffi.sls
@@ -43,10 +43,11 @@
     (jerboa core)
     (jerboa runtime))
   (def _shim-loaded
-       (or (guard (e [#t #f])
+       (or (guard (e [list #t #f])
              (load-shared-object "jcode_tui_shim.dylib"))
-           (guard (e [#t #f]) (load-shared-object "jcode_tui_shim.so"))
-           (guard (e [#t #f])
+           (guard (e [list #t #f])
+             (load-shared-object "jcode_tui_shim.so"))
+           (guard (e [list #t #f])
              (load-shared-object
                (path-join
                  (path-directory (car (command-line)))
diff --git a/src/jcode/provider/provider.ss b/src/jcode/provider/provider.ss
index 4b79b41..07e4281 100644
--- a/src/jcode/provider/provider.ss
+++ b/src/jcode/provider/provider.ss
@@ -9,7 +9,7 @@
         provider-model)
 
 (import :std/text/json
-        (except (std net request) http-post-stream)
+        :std/net/request
         :std/net/tls-rustls
         :std/net/tcp
         :std/misc/string