(scm_integer_expt): Make 0^z == 0 for z != 0.

[bpt/guile.git] / libguile / read.h

diff --git a/libguile/read.h b/libguile/read.h
index 5c93e6d..f1e0bf5 100644 (file)
--- a/libguile/read.h
+++ b/libguile/read.h
@@ -1,19 +1,20 @@
 /* classes: h_files */
 
-#ifndef READH
-#define READH
-/*     Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
- * 
+#ifndef SCM_READ_H
+#define SCM_READ_H
+
+/* Copyright (C) 1995,1996,2000 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.  */
+
 \f
 
 #include "libguile/__scm.h"
@@ -67,7 +69,7 @@
 
 #define SCM_WHITE_SPACES  SCM_SINGLE_SPACES: case '\t'
 
-extern scm_option_t scm_read_opts[];
+SCM_API scm_t_option scm_read_opts[];
 
 #define SCM_COPY_SOURCE_P      scm_read_opts[0].val
 #define SCM_RECORD_POSITIONS_P scm_read_opts[1].val
@@ -77,19 +79,19 @@ extern scm_option_t scm_read_opts[];
 
 \f
 
-extern SCM scm_read_options (SCM setting);
-extern SCM scm_read (SCM port);
-extern char * scm_grow_tok_buf (SCM * tok_buf);
-extern int scm_flush_ws (SCM port, const char *eoferr);
-extern int scm_casei_streq (char * s1, char * s2);
-extern SCM scm_lreadr (SCM * tok_buf, SCM port, SCM *copy);
-extern size_t scm_read_token (int ic, SCM * tok_buf, SCM port, int weird);
-extern SCM scm_lreadparen (SCM * tok_buf, SCM port, char *name, SCM *copy);
-extern SCM scm_lreadrecparen (SCM * tok_buf, SCM port, char *name, SCM *copy);
-extern SCM scm_read_hash_extend (SCM chr, SCM proc);
-extern void scm_init_read (void);
+SCM_API SCM scm_read_options (SCM setting);
+SCM_API SCM scm_read (SCM port);
+SCM_API char * scm_grow_tok_buf (SCM * tok_buf);
+SCM_API int scm_flush_ws (SCM port, const char *eoferr);
+SCM_API int scm_casei_streq (char * s1, char * s2);
+SCM_API SCM scm_lreadr (SCM * tok_buf, SCM port, SCM *copy);
+SCM_API size_t scm_read_token (int ic, SCM * tok_buf, SCM port, int weird);
+SCM_API SCM scm_lreadparen (SCM * tok_buf, SCM port, char *name, SCM *copy);
+SCM_API SCM scm_lreadrecparen (SCM * tok_buf, SCM port, char *name, SCM *copy);
+SCM_API SCM scm_read_hash_extend (SCM chr, SCM proc);
+SCM_API void scm_init_read (void);
 
-#endif  /* READH */
+#endif  /* SCM_READ_H */
 
 /*
   Local Variables: