X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/b6203a189ba9e3bc8d72529528ab75b62a2c46e1..47612fd68ae93815c08a92b504f9334b224c557e:/libguile/private-options.h diff --git a/libguile/private-options.h b/libguile/private-options.h index 4f580a640..a3a0c2b94 100644 --- a/libguile/private-options.h +++ b/libguile/private-options.h @@ -4,7 +4,7 @@ * We put this in a private header, since layout of data structures * is an implementation detail that we want to hide. * - * Copyright (C) 2007, 2009, 2010, 2011 Free Software Foundation, Inc. + * Copyright (C) 2007, 2009, 2010, 2011, 2014 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -52,7 +52,8 @@ SCM_INTERNAL scm_t_option scm_print_opts[]; #define SCM_PRINT_KEYWORD_STYLE_I 2 #define SCM_PRINT_KEYWORD_STYLE (SCM_PACK (scm_print_opts[2].val)) #define SCM_PRINT_ESCAPE_NEWLINES_P scm_print_opts[3].val -#define SCM_N_PRINT_OPTIONS 4 +#define SCM_PRINT_R7RS_SYMBOLS_P scm_print_opts[4].val +#define SCM_N_PRINT_OPTIONS 5 /* @@ -68,7 +69,8 @@ SCM_INTERNAL scm_t_option scm_read_opts[]; #define SCM_SQUARE_BRACKETS_P scm_read_opts[5].val #define SCM_HUNGRY_EOL_ESCAPES_P scm_read_opts[6].val #define SCM_CURLY_INFIX_P scm_read_opts[7].val +#define SCM_R7RS_SYMBOLS_P scm_read_opts[8].val -#define SCM_N_READ_OPTIONS 8 +#define SCM_N_READ_OPTIONS 9 #endif /* PRIVATE_OPTIONS */