*** empty log message ***
[bpt/guile.git] / libguile / options.h
index 7b36fc2..899f5ee 100644 (file)
@@ -51,7 +51,7 @@
 
 \f
 
-typedef struct scm_option
+typedef struct scm_t_option
 {
   int type;
   char *name;
@@ -62,15 +62,19 @@ typedef struct scm_option
   unsigned long val;
   /* SCM val */
   char *doc;
-} scm_option;
+} scm_t_option;
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+# define scm_option scm_t_option
+#endif
 
 #define SCM_OPTION_BOOLEAN 0
 #define SCM_OPTION_INTEGER 1
 #define SCM_OPTION_SCM     2
 
 
-extern SCM scm_options (SCM new_mode, scm_option options[], int n, const char *s);
-extern void scm_init_opts (SCM (*func) (SCM), scm_option options[], int n);
+extern SCM scm_options (SCM new_mode, scm_t_option options[], int n, const char *s);
+extern void scm_init_opts (SCM (*func) (SCM), scm_t_option options[], int n);
 extern void scm_init_options (void);
 
 #endif /* OPTIONSH */