From 98ccaceb250175807be069817f3c4463b143be9a Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 2 May 2018 22:52:31 +0200 Subject: [PATCH] mes: Remove debugging. * module/mes/module.mes (mes-load-module-env): Remove debugging. --- module/mes/module.mes | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/module/mes/module.mes b/module/mes/module.mes index 716ca3b6..667817e8 100644 --- a/module/mes/module.mes +++ b/module/mes/module.mes @@ -58,5 +58,7 @@ (set-current-input-port (pop! *input-ports*)) x)) (define (mes-load-module-env module a) - (core:write-error (string-append %moduledir (module->file module))) (core:display-error "\n") - (primitive-load (string-append %moduledir (module->file module)))) + ((lambda (file-name) + (core:write-error file-name) (core:display-error "\n") + (primitive-load file-name)) + (string-append %moduledir (module->file module))))