From 092626243a225ec125e5f542c52a1a44301bd252 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 10 Oct 2019 13:22:12 +0200 Subject: [PATCH] mes: Fix -c, --command. * mes/module/mes/boot-0.scm: Prepend 'begin to expr list. --- mes/module/mes/boot-0.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))