diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-09-18 19:36:09 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-09-18 19:36:09 +0000 |
commit | 7e763bfcba60d70c04e56c9527101c63bc2fce67 (patch) | |
tree | 3abfeb97c5b6c08493ed49ed7bd4aab1980996a6 | |
parent | 09a4f0393dedc6f93295ecbe2d344b4c641cf9f2 (diff) | |
download | guile-7e763bfcba60d70c04e56c9527101c63bc2fce67.tar.gz |
* read.h: Added prototype for scm_lreadrecparen
-rw-r--r-- | libguile/read.h | 8 |
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 */ |