mes: Fix -c, --command.

* mes/module/mes/boot-0.scm: Prepend 'begin to expr list.

diff --git a/mes/module/mes/boot-0.scm b/mes/module/mes/boot-0.scm
index fc1e1d11fb00110e5073fd82a2a283e0a76dfb28..bca8248357f072fa8b4451629c6211e886508fce 100644 (file)
--- a/mes/module/mes/boot-0.scm
+++ b/mes/module/mes/boot-0.scm
@@ -265,7 +265,7 @@ General help using GNU software: <http://gnu.org/gethelp/>
              (setenv "GUILE_LOAD_PATH" (string-append dir ":" (getenv "GUILE_LOAD_PATH")))))
     (when command
       (let* ((prev (set-current-input-port (open-input-string command)))
              (setenv "GUILE_LOAD_PATH" (string-append dir ":" (getenv "GUILE_LOAD_PATH")))))
     (when command
       (let* ((prev (set-current-input-port (open-input-string command)))

-             (expr (read-input-file-env (current-module)))
+             (expr (cons 'begin (read-input-file-env (current-module))))

              (set-current-input-port prev))
         (primitive-eval expr)
         (exit 0)))
              (set-current-input-port prev))
         (primitive-eval expr)
         (exit 0)))