From 995e7d7d27e4e39526d8d84d57b93f5f3fd01697 Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Tue, 16 Oct 2001 00:40:22 +0000 Subject: [PATCH] Fix string literal. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5657 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/app-utils/guile-util.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/app-utils/guile-util.c b/src/app-utils/guile-util.c index a935ea93c2..4681552f16 100644 --- a/src/app-utils/guile-util.c +++ b/src/app-utils/guile-util.c @@ -340,8 +340,8 @@ gnc_scm_lookup(const char *module, const char *symbol) in_guard = gh_eval_str(in_guard_str); thunk = gh_eval_str(thunk_str); - out_guard = gh_eval_str("(let ((cm (current-module))) - (lambda () (set-current-module cm)))"); + out_guard = gh_eval_str("(let ((cm (current-module)))" + " (lambda () (set-current-module cm)))"); result = scm_dynamic_wind(in_guard, thunk, out_guard);