Fix string literal.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5657 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-10-16 00:40:22 +00:00
parent 1cceb39a7f
commit 995e7d7d27

View File

@ -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);