summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-09-18 19:36:09 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-09-18 19:36:09 +0000
commit7e763bfcba60d70c04e56c9527101c63bc2fce67 (patch)
tree3abfeb97c5b6c08493ed49ed7bd4aab1980996a6
parent09a4f0393dedc6f93295ecbe2d344b4c641cf9f2 (diff)
downloadguile-7e763bfcba60d70c04e56c9527101c63bc2fce67.tar.gz
* read.h: Added prototype for scm_lreadrecparen
-rw-r--r--libguile/read.h8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/read.h b/libguile/read.h
index f307a22de..97dddd005 100644
--- a/libguile/read.h
+++ b/libguile/read.h
@@ -67,13 +67,11 @@
#define SCM_WHITE_SPACES SCM_SINGLE_SPACES: case '\t'
-#ifdef READER_EXTENSIONS
extern scm_option scm_read_opts[];
#define SCM_COPY_SOURCE_P scm_read_opts[0].val
#define SCM_RECORD_POSITIONS_P scm_read_opts[1].val
#define SCM_N_READ_OPTIONS 2
-#endif
@@ -83,9 +81,10 @@ extern SCM scm_read (SCM port, SCM casep, SCM sharp);
extern char * scm_grow_tok_buf (SCM * tok_buf);
extern int scm_flush_ws (SCM port, char *eoferr);
extern int scm_casei_streq (char * s1, char * s2);
-extern SCM scm_lreadr (SCM * tok_buf, SCM port, int case_i, SCM sharp);
+extern SCM scm_lreadr (SCM * tok_buf, SCM port, int case_i, SCM sharp, SCM *copy);
extern scm_sizet scm_read_token (int ic, SCM * tok_buf, SCM port, int case_i, int weird);
-extern SCM scm_lreadparen (SCM * tok_buf, SCM port, char *name, int case_i, SCM sharp);
+extern SCM scm_lreadparen (SCM * tok_buf, SCM port, char *name, int case_i, SCM sharp, SCM *copy);
+extern SCM scm_lreadrecparen (SCM * tok_buf, SCM port, char *name, int case_i, SCM sharp, SCM *copy);
extern void scm_init_read (void);
#else /* STDC */
@@ -97,6 +96,7 @@ extern int scm_casei_streq ();
extern SCM scm_lreadr ();
extern scm_sizet scm_read_token ();
extern SCM scm_lreadparen ();
+extern SCM scm_lreadrecparen ();
extern void scm_init_read ();
#endif /* STDC */