Silence INFO logs by default; fix Gemma4 reasoning field

ober

0804ce587034709ba396907b7b468dd63909057e

diff --git a/lib/jcode/provider/provider.sls b/lib/jcode/provider/provider.sls
index 3f9bda5..9ed1b0b 100644
--- a/lib/jcode/provider/provider.sls
+++ b/lib/jcode/provider/provider.sls
@@ -736,27 +736,15 @@
                                                                  choice
                                                                  "delta"))])
                                               (when delta
-                                                (let ([content (let ([c (hash-get
-                                                                          delta
-                                                                          "content")]
-                                                                     [r (hash-get
-                                                                          delta
-                                                                          "reasoning")])
-                                                                 (if (and c
-                                                                          (string?
-                                                                            c)
-                                                                          (> (string-length
-                                                                               c)
-                                                                             0))
-                                                                     c
-                                                                     (and r
-                                                                          (string?
-                                                                            r)
-                                                                          (> (string-length
-                                                                               r)
-                                                                             0)
-                                                                          r)))])
-                                                  (when content
+                                                (let ([content (hash-get
+                                                                 delta
+                                                                 "content")])
+                                                  (when (and content
+                                                             (string?
+                                                               content)
+                                                             (> (string-length
+                                                                  content)
+                                                                0))
                                                     (put-string
                                                       text-acc
                                                       content)
diff --git a/lib/jcode/ui/cli.sls b/lib/jcode/ui/cli.sls
index 0727a8e..77939d7 100644
--- a/lib/jcode/ui/cli.sls
+++ b/lib/jcode/ui/cli.sls
@@ -24,7 +24,7 @@
            (bitwise-and
              (+ (time-nanosecond t) (* 1000003 (time-second t)))
              4294967295)))
-       (current-log-level 'info)
+       (current-log-level 'warn)
        (let ([opts (parse-args args)])
          (when (assoc '\x2D;-help opts) (display-help) (exit 0))
          (when (assoc '\x2D;-version opts)
@@ -412,7 +412,7 @@
            (if idx
                (let ([json-start (string-contains msg "{")])
                  (if json-start
-                     (guard (ex [list #t msg])
+                     (guard (ex [#t msg])
                        (let* ([json-str (substring
                                           msg
                                           json-start
diff --git a/src/jcode/provider/provider.ss b/src/jcode/provider/provider.ss
index 78d0ba2..ecbcde1 100644
--- a/src/jcode/provider/provider.ss
+++ b/src/jcode/provider/provider.ss
@@ -661,13 +661,9 @@
                           (choice  (and (pair? choices) (car choices)))
                           (delta   (and choice (hash-get choice "delta"))))
                      (when delta
-                       ;; Text content token (fall back to reasoning for models like Gemma4)
-                       (let ((content (let ((c (hash-get delta "content"))
-                                           (r (hash-get delta "reasoning")))
-                                        (if (and c (string? c) (> (string-length c) 0))
-                                          c
-                                          (and r (string? r) (> (string-length r) 0) r)))))
-                         (when content
+                       ;; Text content token
+                       (let ((content (hash-get delta "content")))
+                         (when (and content (string? content) (> (string-length content) 0))
                            (put-string text-acc content)
                            (token-cb content)))
                        ;; Tool call fragments
diff --git a/src/jcode/ui/cli.ss b/src/jcode/ui/cli.ss
index 313633c..ca7a34f 100644
--- a/src/jcode/ui/cli.ss
+++ b/src/jcode/ui/cli.ss
@@ -20,7 +20,9 @@
         :jcode/tool/lsp
         :jcode/core/plugin
         :jcode/ui/tui
-        :jcode/ui/serve)
+        :jcode/ui/serve
+        :jerboa/core
+        :jerboa/runtime)
 
 (def logger (make-logger "cli"))
 (def *version* "0.1.0")
@@ -31,7 +33,7 @@
     (random-seed (bitwise-and
                    (+ (time-nanosecond t) (* 1000003 (time-second t)))
                    #xffffffff)))
-  (current-log-level 'info)
+  (current-log-level 'warn)
   (let ((opts (parse-args args)))
     (when (assoc '--help opts)
       (display-help) (exit 0))