r22662 - gnucash/trunk/src/app-utils - Remove code that was intended for guile before 1.6

[Geert Janssens]

Author: gjanssens
Date: 2012-12-17 08:51:15 -0500 (Mon, 17 Dec 2012)
New Revision: 22662
Trac: http://svn.gnucash.org/trac/changeset/22662

Modified:
   gnucash/trunk/src/app-utils/guile-util.c
Log:
Remove code that was intended for guile before 1.6

Modified: gnucash/trunk/src/app-utils/guile-util.c
===================================================================
--- gnucash/trunk/src/app-utils/guile-util.c	2012-12-17 05:35:41 UTC (rev 22661)
+++ gnucash/trunk/src/app-utils/guile-util.c	2012-12-17 13:51:15 UTC (rev 22662)
@@ -336,39 +336,9 @@
 SCM
 gnc_scm_lookup(const char *module, const char *symbol)
 {
-#if defined(SCM_GUILE_MAJOR_VERSION) && \
-    (SCM_GUILE_MAJOR_VERSION > 0) && (SCM_GUILE_MINOR_VERSION > 4)
-
     SCM scm_module = scm_c_resolve_module(module);
     SCM value = scm_c_module_lookup(scm_module, symbol);
     return value;
-#else
-
-    gchar *in_guard_str;
-    gchar *thunk_str;
-    SCM in_guard;
-    SCM thunk;
-    SCM out_guard;
-    SCM result;
-
-    in_guard_str =
-        g_strdup_printf("(lambda () (set-current-module (resolve-module (%s))))",
-                        module);
-
-    thunk_str = g_strdup_printf("(lambda () (eval '%s))", symbol);
-
-    in_guard = scm_c_eval_string(in_guard_str);
-    thunk = scm_c_eval_string(thunk_str);
-    out_guard = scm_c_eval_string("(let ((cm (current-module)))"
-                                  "  (lambda () (set-current-module cm)))");
-
-    result = scm_dynamic_wind(in_guard, thunk, out_guard);
-
-    g_free(in_guard_str);
-    g_free(thunk_str);
-
-    return result;
-#endif
 }
 
 #endif