From: Jan Nieuwenhuizen Date: Thu, 10 Oct 2019 11:22:12 +0000 (+0200) Subject: mes: Fix -c, --command. X-Git-Tag: v0.21~15 X-Git-Url: https://jxself.org/git/?p=mes.git;a=commitdiff_plain;h=092626243a225ec125e5f542c52a1a44301bd252 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 fc1e1d11..bca82483 100644 --- a/mes/module/mes/boot-0.scm +++ b/mes/module/mes/boot-0.scm @@ -265,7 +265,7 @@ General help using GNU software: (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)))