X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/deca31e1736a487104ecde76df8b55be18c1ef65..e40ffcb6bda47a508fe90822ef892ba0968f2315:/libguile/read.h diff --git a/libguile/read.h b/libguile/read.h index 74904452b..f5e21ca9e 100644 --- a/libguile/read.h +++ b/libguile/read.h @@ -16,7 +16,8 @@ * * 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, 675 Mass Ave, Cambridge, MA 02139, USA. + * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + * Boston, MA 02111-1307 USA * * As a special exception, the Free Software Foundation gives permission * for additional uses of the text contained in its release of GUILE. @@ -40,8 +41,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. - */ + * If you do not wish that, delete this exception notice. */ #include "libguile/__scm.h" @@ -72,7 +72,8 @@ 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_CASE_INSENSITIVE_P scm_read_opts[2].val -#define SCM_N_READ_OPTIONS 3 +#define SCM_KEYWORD_STYLE scm_read_opts[3].val +#define SCM_N_READ_OPTIONS 4