summaryrefslogtreecommitdiff
path: root/libguile/gsubr.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 12:13:50 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 12:13:50 +0000
commitdee01b012cd5179b70a2e361ee08c364ed9f3314 (patch)
tree342478de9cb5237437a734aa88b7c9fe26533845 /libguile/gsubr.h
parentb29058ffee392969b448f8157afaf370c17a736c (diff)
downloadguile-dee01b012cd5179b70a2e361ee08c364ed9f3314.tar.gz
* Removed deprecated stuff.
* Some more renamings to SCM_<filename>_H.
Diffstat (limited to 'libguile/gsubr.h')
-rw-r--r--libguile/gsubr.h29
1 files changed, 9 insertions, 20 deletions
diff --git a/libguile/gsubr.h b/libguile/gsubr.h
index fe7dcd8f5..de3489805 100644
--- a/libguile/gsubr.h
+++ b/libguile/gsubr.h
@@ -1,19 +1,20 @@
/* classes: h_files */
-#ifndef GSUBRH
-#define GSUBRH
-/* Copyright (C) 1995,1996,1998, 2000, 2001 Free Software Foundation, Inc.
- *
+#ifndef SCM_GSUBR_H
+#define SCM_GSUBR_H
+
+/* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc.
+ *
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
- *
+ *
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
- *
+ *
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */
+
#include "libguile/__scm.h"
@@ -75,20 +77,7 @@ extern SCM scm_c_define_gsubr_with_generic (const char *name,
extern SCM scm_gsubr_apply (SCM args);
extern void scm_init_gsubr (void);
-#if SCM_DEBUG_DEPRECATED == 0
-
-extern SCM scm_make_gsubr (const char *name, int req, int opt, int rst,
- SCM (*fcn)());
-extern SCM scm_make_gsubr_with_generic (const char *name,
- int req,
- int opt,
- int rst,
- SCM (*fcn)(),
- SCM *gf);
-
-#endif
-
-#endif /* GSUBRH */
+#endif /* SCM_GSUBR_H */
/*
Local Variables: