mes: Fix -c, --command.
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 10 Oct 2019 11:22:12 +0000 (13:22 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Thu, 10 Oct 2019 11:22:12 +0000 (13:22 +0200)
* mes/module/mes/boot-0.scm: Prepend 'begin to expr list.

mes/module/mes/boot-0.scm

index fc1e1d11fb00110e5073fd82a2a283e0a76dfb28..bca8248357f072fa8b4451629c6211e886508fce 100644 (file)
@@ -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)))
-             (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)))