GDB: Guile: Remove code meant for Guile < 2.2

Approved-By: Tom Tromey <tom@tromey.com>

diff --git a/gdb/guile/scm-gsmob.c b/gdb/guile/scm-gsmob.c
index 7a7a69d2505b8cebf7c22b6f5f3cfe6ff7d86a92..2fe825eefa346990677615b22714bc37ca9c81d8 100644 (file)
--- a/gdb/guile/scm-gsmob.c
+++ b/gdb/guile/scm-gsmob.c
@@ -105,27 +105,7 @@ gdbscm_make_smob_type (const char *name, size_t size)
 
   register_gsmob (result);
 
-#if SCM_MAJOR_VERSION == 2 && SCM_MINOR_VERSION == 0
-  /* Prior to Guile 2.1.0, smob classes were only exposed via exports
-     from the (oop goops) module.  */
-  SCM bound_name = scm_string_append (scm_list_3 (scm_from_latin1_string ("<"),
-                                                 scm_from_latin1_string (name),
-                                                 scm_from_latin1_string (">")));
-  bound_name = scm_string_to_symbol (bound_name);
-  SCM smob_type = scm_public_ref (scm_list_2 (scm_from_latin1_symbol ("oop"),
-                                             scm_from_latin1_symbol ("goops")),
-                                 bound_name);
-#elif SCM_MAJOR_VERSION == 2 && SCM_MINOR_VERSION == 1 && SCM_MICRO_VERSION == 0
-  /* Guile 2.1.0 doesn't provide any API for looking up smob classes.
-     We could try allocating a fake instance and using scm_class_of,
-     but it's probably not worth the trouble for the sake of a single
-     development release.  */
-#  error "Unsupported Guile version"
-#else
-  /* Guile 2.1.1 and above provides scm_smob_type_class.  */
   SCM smob_type = scm_smob_type_class (result);
-#endif
-
   SCM smob_type_name = scm_class_name (smob_type);
   scm_define (smob_type_name, smob_type);
   scm_module_export (scm_current_module (), scm_list_1 (smob_type_name));