Index: libguile/unif.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/unif.c,v
retrieving revision 1.166
diff -u -r1.166 unif.c
--- libguile/unif.c	2 Nov 2004 20:15:32 -0000	1.166
+++ libguile/unif.c	2 Nov 2004 20:53:32 -0000
@@ -2401,6 +2401,9 @@
 	proto = scm_c_make_rectangular (0.0, 1.0);
 	instead = "???";
 	break;
+      default:
+	instead = "???";
+	break;
       }
     if (!scm_is_eq (proto, SCM_EOL) && tag[1] == '\0')
       {
@@ -2659,10 +2662,14 @@
 	}
       else
 	{
+#if SCM_ENABLE_DEPRECATED
 	  SCM proto = scm_i_get_old_prototype (ra);
 	  if (scm_is_eq (SCM_UNSPECIFIED, proto))
 	    goto badarg;
 	  return proto;
+#else
+	  goto badarg;
+#endif
 	}
     case scm_tc7_vector:
     case scm_tc7_wvect: