Fix TUI default: teach has-positional-args? about --repl, --no-mcp flags

ober

ed721813f0e95108fed4ac973336f13d970832c6

diff --git a/main-binary.ss b/main-binary.ss
index 47a1e5a..5cb0b2d 100644
--- a/main-binary.ss
+++ b/main-binary.ss
@@ -10,9 +10,9 @@
 (define (has-positional-args? args)
   (cond
     ((null? args) #f)
-    ((member (car args) '("--help" "-h" "--version" "-v" "--debug" "-d" "--tui" "--no-tui" "--verbose"))
+    ((member (car args) '("--help" "-h" "--version" "-v" "--debug" "-d" "--tui" "--no-tui" "--verbose" "--repl" "--no-mcp"))
      (has-positional-args? (cdr args)))
-    ((member (car args) '("--model" "-m" "--provider" "-p"))
+    ((member (car args) '("--model" "-m" "--provider" "-p" "--repl-port"))
      (if (null? (cdr args)) #f (has-positional-args? (cddr args))))
     (else #t)))