From af55fa525e5f6ce9e4d16ec436a3565452ef5194 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sun, 19 Apr 2026 11:32:06 -0400 Subject: [PATCH] fix(mvp): Resolve protocol desync, TUI scoping, and installer fallthrough --- opencortex.sh | 3 +++ skills/org-skill-cli-gateway.org | 10 +++++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/opencortex.sh b/opencortex.sh index 97ec06c..9549a43 100755 --- a/opencortex.sh +++ b/opencortex.sh @@ -156,6 +156,9 @@ if [ ! -f "$SCRIPT_DIR/src/package.lisp" ] || [ ! -f "$SCRIPT_DIR/.env" ]; then setup_system fi +# Exit after setup to prevent fallthrough into CLI fallback +if [ -z "" ]; then exit 0; fi + # --- 4. BOOT --- if [[ "$1" == "--boot" ]]; then export SKILLS_DIR="${SCRIPT_DIR}/skills" diff --git a/skills/org-skill-cli-gateway.org b/skills/org-skill-cli-gateway.org index 51f2c77..5683a43 100644 --- a/skills/org-skill-cli-gateway.org +++ b/skills/org-skill-cli-gateway.org @@ -61,9 +61,9 @@ The CLI actuator writes the agent's response back to the client's network stream (handler-case (if (and stream (open-stream-p stream)) (progn - (format stream "~a~%" (frame-message (format nil "~s" (list :type :chat :text text)))) + (format stream "~a" (frame-message (format nil "~s" (list :type :chat :text text)))) (finish-output stream) - (format stream "~a~%" (frame-message (format nil "~s" '(:type :status :scribe :idle :gardener :sleeping)))) + (format stream "~a" (frame-message (format nil "~s" '(:type :status :scribe :idle :gardener :sleeping)))) (finish-output stream)) (harness-log "CLI ERROR: No active or open reply stream for signal.")) (error (c) (harness-log "CLI ACTUATOR ERROR: ~a" c))))) @@ -77,7 +77,7 @@ Handles an individual TCP connection. It reads lines until the connection is clo "Handles TUI slash commands by returning structured Lisp s-expressions." (cond ((string= cmd "/status") - (format stream "~a~%" (frame-message (format nil "~s" '(:type :status :scribe :idle :gardener :sleeping)))) + (format stream "~a" (frame-message (format nil "~s" '(:type :status :scribe :idle :gardener :sleeping)))) (finish-output stream)) ((string= cmd "/exit") (prin1 '(:type :info :text "Goodbye!") stream) @@ -93,9 +93,9 @@ Handles an individual TCP connection. It reads lines until the connection is clo (handler-case (progn ;; 1. Send Handshake - (format stream "~a~%" (frame-message (format nil "~s" (make-hello-message "0.1.0")))) + (format stream "~a" (frame-message (format nil "~s" (make-hello-message "0.1.0")))) (finish-output stream) - (format stream "~a~%" (frame-message (format nil "~s" '(:type :status :scribe :idle :gardener :sleeping)))) + (format stream "~a" (frame-message (format nil "~s" '(:type :status :scribe :idle :gardener :sleeping)))) (finish-output stream) ;; 2. Communication Loop