From feb5647990c49ede4e082a7f2e859dd8104125ad Mon Sep 17 00:00:00 2001
From: snmsts <snmsts@gmail.com>
Date: Thu, 24 Jul 2025 04:18:14 +0900
Subject: [PATCH] ros command return 1 when script file does not found.

---
 lisp/init.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/init.lisp b/lisp/init.lisp
index 84c77a5..78095b6 100644
--- a/lisp/init.lisp
+++ b/lisp/init.lisp
@@ -445,7 +445,8 @@ As a hacky side effect, files with the same name as PROVIDE is not loaded.
            (with-open-file (in arg)
              (body in)))
           (*latest-system* (apply 'hook (cons arg *argv*)))
-          (t (format t "script ~S does not exist~%" arg)))))
+          (t (format t "script ~S does not exist~%" arg)
+             (quit 1)))))
 
 (defun stdin (arg &rest rest)
   (declare (ignorable arg rest))