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

/* This file contains definitions for deprecated features.  When you
   deprecate something, move it here when that is feasible.
*/

#ifndef SCM_DEPRECATED_H
#define SCM_DEPRECATED_H

/* Copyright (C) 2003 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 as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 */

#include "libguile/__scm.h"
#include "libguile/strings.h"

#if (SCM_ENABLE_DEPRECATED == 1)

/* From eval.h: Error messages of the evaluator.  These were deprecated in
 * guile 1.7.0 on 2003-06-02.  */
SCM_API const char scm_s_expression[];
SCM_API const char scm_s_test[];
SCM_API const char scm_s_body[];
SCM_API const char scm_s_bindings[];
SCM_API const char scm_s_variable[];
SCM_API const char scm_s_clauses[];
SCM_API const char scm_s_formals[];


/* From eval.h: Helper macros for evaluation and application.  These were
 * deprecated in guile 1.7.0 on 2003-06-02.  */
#define SCM_EVALIM2(x) \
  ((SCM_EQ_P ((x), SCM_EOL) \
    ? scm_misc_error (NULL, scm_s_expression, SCM_EOL), 0 \
    : 0), \
   (x))
#define SCM_EVALIM(x, env) (SCM_ILOCP (x) \
                            ? *scm_ilookup ((x), env) \
			    : SCM_EVALIM2(x))
#define SCM_XEVAL(x, env) (SCM_IMP (x) \
			   ? SCM_EVALIM2(x) \
			   : (*scm_ceval_ptr) ((x), (env)))
#define SCM_XEVALCAR(x, env) (SCM_IMP (SCM_CAR (x)) \
			      ? SCM_EVALIM (SCM_CAR (x), env) \
			      : (SCM_SYMBOLP (SCM_CAR (x)) \
			         ? *scm_lookupcar (x, env, 1) \
			         : (*scm_ceval_ptr) (SCM_CAR (x), env)))


#define scm_substring_move_left_x scm_substring_move_x
#define scm_substring_move_right_x scm_substring_move_x

typedef long long long_long;
typedef unsigned long long ulong_long;

#define scm_sizet size_t

SCM_API SCM scm_wta (SCM arg, const char *pos, const char *s_subr);

#define SCM_WNA 		8
#define SCM_OUTOFRANGE         10
#define SCM_NALLOC             11

SCM_API void scm_register_module_xxx (char *module_name, void *init_func);
SCM_API SCM scm_registered_modules (void);
SCM_API SCM scm_clear_registered_modules (void);

SCM_API SCM scm_protect_object (SCM obj);
SCM_API SCM scm_unprotect_object (SCM obj);

#define SCM_SETAND_CAR(x, y) \
  (SCM_SETCAR ((x), SCM_PACK (SCM_UNPACK (SCM_CAR (x)) & (y))))
#define SCM_SETOR_CAR(x, y)\
  (SCM_SETCAR ((x), SCM_PACK (SCM_UNPACK (SCM_CAR (x)) | (y))))
#define SCM_SETAND_CDR(x, y)\
  (SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) & (y))))
#define SCM_SETOR_CDR(x, y)\
  (SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) | (y))))
#define SCM_FREEP(x) (SCM_FREE_CELL_P (x))
#define SCM_NFREEP(x) (!SCM_FREE_CELL_P (x))
#define SCM_GC8MARKP(x) SCM_GC_MARK_P (x)
#define SCM_SETGC8MARK(x) SCM_SET_GC_MARK (x)
#define SCM_CLRGC8MARK(x) SCM_CLEAR_GC_MARK (x)
#define SCM_GCTYP16(x) SCM_TYP16 (x)
#define SCM_GCCDR(x) SCM_CDR (x)
SCM_API void scm_remember (SCM * ptr);

SCM_API SCM scm_the_root_module (void);
SCM_API SCM scm_make_module (SCM name);
SCM_API SCM scm_ensure_user_module (SCM name);
SCM_API SCM scm_load_scheme_module (SCM name);

#define scm_port scm_t_port
#define scm_ptob_descriptor scm_t_ptob_descriptor
#define scm_port_rw_active scm_t_port_rw_active

SCM_API SCM scm_close_all_ports_except (SCM ports);

#define scm_rstate scm_t_rstate
#define scm_rng scm_t_rng

#define SCM_SLOPPY_CONSP(x)  ((1 & SCM_CELL_TYPE (x)) == 0)
#define SCM_SLOPPY_NCONSP(x) (!SCM_SLOPPY_CONSP(x))

#define scm_tc7_ssymbol		scm_tc7_symbol
#define scm_tc7_msymbol		scm_tc7_symbol
#define scm_tcs_symbols         scm_tc7_symbol

SCM_API SCM scm_makstr (size_t len, int);
SCM_API SCM scm_makfromstr (const char *src, size_t len, int);

SCM_API SCM scm_variable_set_name_hint (SCM var, SCM hint);
SCM_API SCM scm_builtin_variable (SCM name);

SCM_API SCM scm_internal_with_fluids (SCM fluids, SCM vals,
				      SCM (*cproc)(void *), void *cdata);

SCM_API SCM scm_make_gsubr (const char *name, int req, int opt, int rst,
			    SCM (*fcn)());
SCM_API SCM scm_make_gsubr_with_generic (const char *name,
					 int req,
					 int opt,
					 int rst,
					 SCM (*fcn)(),
					 SCM *gf);

extern SCM scm_create_hook (const char* name, int n_args);

#define SCM_LIST0 SCM_EOL
#define SCM_LIST1(e0) scm_cons ((e0), SCM_EOL)
#define SCM_LIST2(e0, e1) scm_cons2 ((e0), (e1), SCM_EOL)
#define SCM_LIST3(e0, e1, e2) scm_cons ((e0), SCM_LIST2 ((e1), (e2)))
#define SCM_LIST4(e0, e1, e2, e3)\
     scm_cons2 ((e0), (e1), SCM_LIST2 ((e2), (e3)))
#define SCM_LIST5(e0, e1, e2, e3, e4)\
     scm_cons ((e0), SCM_LIST4 ((e1), (e2), (e3), (e4)))
#define SCM_LIST6(e0, e1, e2, e3, e4, e5)\
     scm_cons2 ((e0), (e1), SCM_LIST4 ((e2), (e3), (e4), (e5)))
#define SCM_LIST7(e0, e1, e2, e3, e4, e5, e6)\
     scm_cons ((e0), SCM_LIST6 ((e1), (e2), (e3), (e4), (e5), (e6)))
#define SCM_LIST8(e0, e1, e2, e3, e4, e5, e6, e7)\
     scm_cons2 ((e0), (e1), SCM_LIST6 ((e2), (e3), (e4), (e5), (e6), (e7)))
#define SCM_LIST9(e0, e1, e2, e3, e4, e5, e6, e7, e8)\
     scm_cons ((e0),\
	       SCM_LIST8 ((e1), (e2), (e3), (e4), (e5), (e6), (e7), (e8)))

#define scm_listify scm_list_n

SCM_API SCM scm_sloppy_memq (SCM x, SCM lst);
SCM_API SCM scm_sloppy_memv (SCM x, SCM lst);
SCM_API SCM scm_sloppy_member (SCM x, SCM lst);

SCM_API SCM scm_read_and_eval_x (SCM port);

#define scm_subr_entry scm_t_subr_entry

#define SCM_SUBR_DOC(x) SCM_BOOL_F

SCM_API SCM scm_make_subr (const char *name, int type, SCM (*fcn) ());
SCM_API SCM scm_make_subr_with_generic (const char *name,
					int type,
					SCM (*fcn) (),
					SCM *gf);
SCM_API SCM scm_make_subr_opt (const char *name, 
			       int type, 
			       SCM (*fcn) (),
			       int set);

SCM_API SCM scm_call_catching_errors (SCM (*thunk)(), SCM (*err_filter)(),
				      void * closure);

SCM_API long scm_make_smob_type_mfpe (char *name, size_t size,
				      SCM (*mark) (SCM),
				      size_t (*free) (SCM),
				      int (*print) (SCM, SCM,
						    scm_print_state*),
				      SCM (*equalp) (SCM, SCM));

SCM_API void scm_set_smob_mfpe (long tc, 
				SCM (*mark) (SCM),
				size_t (*free) (SCM),
				int (*print) (SCM, SCM, scm_print_state*),
				SCM (*equalp) (SCM, SCM));

SCM_API SCM scm_strprint_obj (SCM obj);
SCM_API SCM scm_read_0str (char *expr);
SCM_API SCM scm_eval_0str (const char *expr);

SCM_API char *scm_i_object_chars (SCM);

#define SCM_CHARS(x)   scm_i_object_chars(x)
#define SCM_UCHARS(x)  ((unsigned char *)SCM_CHARS(x))

SCM_API long scm_i_object_length (SCM);

#define SCM_LENGTH(x) scm_i_object_length(x)

void scm_i_init_deprecated (void);

#endif

#endif /* SCM_DEPRECATED_H */

#if 0 
/* TODO */

scm_strhash

scm_sym2vcell
scm_sym2ovcell_soft
scm_sym2ovcell

scm_intern_obarray_soft
scm_intern_obarray
scm_intern
scm_intern0

scm_sysintern
scm_sysintern0
scm_sysintern0_no_module_lookup

scm_symbol_value0
scm_string_to_obarray_symbol
scm_intern_symbol

scm_unintern_symbol
scm_symbol_binding
scm_symbol_interned_p

scm_symbol_bound_p
scm_symbol_set_x
scm_gentemp

scm_init_symbols_deprecated
scm_vector_set_length_x

SCM_OPDIRP

scm_fport
scm_option
SCM_CONST_LONG
SCM_VCELL
SCM_GLOBAL_VCELL

SCM_VCELL_INIT
SCM_GLOBAL_VCELL_INIT
scm_srcprops
scm_srcprops_chunk

scm_info_frame
scm_stack
scm_array
scm_array_dim
SCM_ARRAY_CONTIGUOUS

SCM_HUGE_LENGTH
SCM_FUNC_NAME
SCM_WTA
RETURN_SCM_WTA

SCM_VALIDATE_NUMBER_COPY
SCM_VALIDATE_NUMBER_DEF_COPY

SCM_VALIDATE_STRINGORSUBSTR
SCM_VALIDATE_ROSTRING

SCM_VALIDATE_ROSTRING_COPY
SCM_VALIDATE_NULLORROSTRING_COPY

SCM_VALIDATE_RWSTRING
SCM_VALIDATE_OPDIR
scm_small_istr2int

scm_istr2int
scm_istr2flo
scm_istring2number
scm_istr2int

scm_istr2flo
scm_istring2number
scm_vtable_index_vcell

SCM_ECONSP
SCM_NECONSP

scm_tc16_variable

#endif
Commit	Line	Data
19e2247d MV	1	/* This file contains definitions for deprecated features. When you
	2	deprecate something, move it here when that is feasible.
	3	*/
	4
	5	#ifndef SCM_DEPRECATED_H
	6	#define SCM_DEPRECATED_H
	7
	8	/* Copyright (C) 2003 Free Software Foundation, Inc.
	9	*
73be1d9e MV	10	* This library is free software; you can redistribute it and/or
	11	* modify it under the terms of the GNU Lesser General Public
	12	* License as published by the Free Software Foundation; either
	13	* version 2.1 of the License, or (at your option) any later version.
19e2247d	14	*
73be1d9e	15	* This library is distributed in the hope that it will be useful,
19e2247d	16	* but WITHOUT ANY WARRANTY; without even the implied warranty of
73be1d9e MV	17	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
73be1d9e MV	18	* Lesser General Public License for more details.
19e2247d	19	*
73be1d9e MV	20	* You should have received a copy of the GNU Lesser General Public
	21	* License along with this library; if not, write to the Free Software
	22	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	23	*/
19e2247d MV	24
19e2247d MV	25	#include "libguile/__scm.h"
55d30fac	26	#include "libguile/strings.h"
19e2247d MV	27
	28	#if (SCM_ENABLE_DEPRECATED == 1)
	29
e90c3a89 DH	30	/* From eval.h: Error messages of the evaluator. These were deprecated in
	31	* guile 1.7.0 on 2003-06-02. */
	32	SCM_API const char scm_s_expression[];
	33	SCM_API const char scm_s_test[];
	34	SCM_API const char scm_s_body[];
	35	SCM_API const char scm_s_bindings[];
	36	SCM_API const char scm_s_variable[];
	37	SCM_API const char scm_s_clauses[];
	38	SCM_API const char scm_s_formals[];
	39
	40
	41	/* From eval.h: Helper macros for evaluation and application. These were
	42	* deprecated in guile 1.7.0 on 2003-06-02. */
	43	#define SCM_EVALIM2(x) \
	44	((SCM_EQ_P ((x), SCM_EOL) \
	45	? scm_misc_error (NULL, scm_s_expression, SCM_EOL), 0 \
	46	: 0), \
	47	(x))
	48	#define SCM_EVALIM(x, env) (SCM_ILOCP (x) \
	49	? *scm_ilookup ((x), env) \
	50	: SCM_EVALIM2(x))
	51	#define SCM_XEVAL(x, env) (SCM_IMP (x) \
	52	? SCM_EVALIM2(x) \
	53	: (*scm_ceval_ptr) ((x), (env)))
	54	#define SCM_XEVALCAR(x, env) (SCM_IMP (SCM_CAR (x)) \
	55	? SCM_EVALIM (SCM_CAR (x), env) \
	56	: (SCM_SYMBOLP (SCM_CAR (x)) \
	57	? *scm_lookupcar (x, env, 1) \
	58	: (*scm_ceval_ptr) (SCM_CAR (x), env)))
	59
	60
19e2247d MV	61	#define scm_substring_move_left_x scm_substring_move_x
	62	#define scm_substring_move_right_x scm_substring_move_x
	63
55d30fac MV	64	typedef long long long_long;
55d30fac MV	65	typedef unsigned long long ulong_long;
19e2247d	66
55d30fac	67	#define scm_sizet size_t
19e2247d	68
55d30fac	69	SCM_API SCM scm_wta (SCM arg, const char pos, const char s_subr);
19e2247d	70
55d30fac MV	71	#define SCM_WNA 8
	72	#define SCM_OUTOFRANGE 10
	73	#define SCM_NALLOC 11
19e2247d	74
55d30fac MV	75	SCM_API void scm_register_module_xxx (char module_name, void init_func);
	76	SCM_API SCM scm_registered_modules (void);
	77	SCM_API SCM scm_clear_registered_modules (void);
19e2247d	78
a0454d72 MV	79	SCM_API SCM scm_protect_object (SCM obj);
	80	SCM_API SCM scm_unprotect_object (SCM obj);
	81
	82	#define SCM_SETAND_CAR(x, y) \
	83	(SCM_SETCAR ((x), SCM_PACK (SCM_UNPACK (SCM_CAR (x)) & (y))))
	84	#define SCM_SETOR_CAR(x, y)\
	85	(SCM_SETCAR ((x), SCM_PACK (SCM_UNPACK (SCM_CAR (x)) \| (y))))
	86	#define SCM_SETAND_CDR(x, y)\
	87	(SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) & (y))))
	88	#define SCM_SETOR_CDR(x, y)\
	89	(SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) \| (y))))
	90	#define SCM_FREEP(x) (SCM_FREE_CELL_P (x))
	91	#define SCM_NFREEP(x) (!SCM_FREE_CELL_P (x))
7aaf8dc9 MD	92	#define SCM_GC8MARKP(x) SCM_GC_MARK_P (x)
	93	#define SCM_SETGC8MARK(x) SCM_SET_GC_MARK (x)
	94	#define SCM_CLRGC8MARK(x) SCM_CLEAR_GC_MARK (x)
a0454d72 MV	95	#define SCM_GCTYP16(x) SCM_TYP16 (x)
	96	#define SCM_GCCDR(x) SCM_CDR (x)
	97	SCM_API void scm_remember (SCM * ptr);
	98
	99	SCM_API SCM scm_the_root_module (void);
	100	SCM_API SCM scm_make_module (SCM name);
	101	SCM_API SCM scm_ensure_user_module (SCM name);
	102	SCM_API SCM scm_load_scheme_module (SCM name);
	103
	104	#define scm_port scm_t_port
	105	#define scm_ptob_descriptor scm_t_ptob_descriptor
	106	#define scm_port_rw_active scm_t_port_rw_active
	107
	108	SCM_API SCM scm_close_all_ports_except (SCM ports);
	109
97f28fa4 MV	110	#define scm_rstate scm_t_rstate
	111	#define scm_rng scm_t_rng
	112
	113	#define SCM_SLOPPY_CONSP(x) ((1 & SCM_CELL_TYPE (x)) == 0)
	114	#define SCM_SLOPPY_NCONSP(x) (!SCM_SLOPPY_CONSP(x))
	115
	116	#define scm_tc7_ssymbol scm_tc7_symbol
	117	#define scm_tc7_msymbol scm_tc7_symbol
	118	#define scm_tcs_symbols scm_tc7_symbol
	119
965445d4 MV	120	SCM_API SCM scm_makstr (size_t len, int);
	121	SCM_API SCM scm_makfromstr (const char *src, size_t len, int);
	122
	123	SCM_API SCM scm_variable_set_name_hint (SCM var, SCM hint);
	124	SCM_API SCM scm_builtin_variable (SCM name);
	125
	126	SCM_API SCM scm_internal_with_fluids (SCM fluids, SCM vals,
	127	SCM (cproc)(void ), void *cdata);
	128
	129	SCM_API SCM scm_make_gsubr (const char *name, int req, int opt, int rst,
	130	SCM (*fcn)());
	131	SCM_API SCM scm_make_gsubr_with_generic (const char *name,
	132	int req,
	133	int opt,
	134	int rst,
	135	SCM (*fcn)(),
	136	SCM *gf);
	137
	138	extern SCM scm_create_hook (const char* name, int n_args);
	139
	140	#define SCM_LIST0 SCM_EOL
	141	#define SCM_LIST1(e0) scm_cons ((e0), SCM_EOL)
	142	#define SCM_LIST2(e0, e1) scm_cons2 ((e0), (e1), SCM_EOL)
	143	#define SCM_LIST3(e0, e1, e2) scm_cons ((e0), SCM_LIST2 ((e1), (e2)))
	144	#define SCM_LIST4(e0, e1, e2, e3)\
	145	scm_cons2 ((e0), (e1), SCM_LIST2 ((e2), (e3)))
	146	#define SCM_LIST5(e0, e1, e2, e3, e4)\
	147	scm_cons ((e0), SCM_LIST4 ((e1), (e2), (e3), (e4)))
	148	#define SCM_LIST6(e0, e1, e2, e3, e4, e5)\
	149	scm_cons2 ((e0), (e1), SCM_LIST4 ((e2), (e3), (e4), (e5)))
	150	#define SCM_LIST7(e0, e1, e2, e3, e4, e5, e6)\
	151	scm_cons ((e0), SCM_LIST6 ((e1), (e2), (e3), (e4), (e5), (e6)))
	152	#define SCM_LIST8(e0, e1, e2, e3, e4, e5, e6, e7)\
	153	scm_cons2 ((e0), (e1), SCM_LIST6 ((e2), (e3), (e4), (e5), (e6), (e7)))
	154	#define SCM_LIST9(e0, e1, e2, e3, e4, e5, e6, e7, e8)\
	155	scm_cons ((e0),\
	156	SCM_LIST8 ((e1), (e2), (e3), (e4), (e5), (e6), (e7), (e8)))
	157
	158	#define scm_listify scm_list_n
	159
	160	SCM_API SCM scm_sloppy_memq (SCM x, SCM lst);
	161	SCM_API SCM scm_sloppy_memv (SCM x, SCM lst);
	162	SCM_API SCM scm_sloppy_member (SCM x, SCM lst);
	163
	164	SCM_API SCM scm_read_and_eval_x (SCM port);
	165
4abecea8 MV	166	#define scm_subr_entry scm_t_subr_entry
	167
	168	#define SCM_SUBR_DOC(x) SCM_BOOL_F
	169
	170	SCM_API SCM scm_make_subr (const char name, int type, SCM (fcn) ());
	171	SCM_API SCM scm_make_subr_with_generic (const char *name,
	172	int type,
	173	SCM (*fcn) (),
	174	SCM *gf);
	175	SCM_API SCM scm_make_subr_opt (const char *name,
	176	int type,
	177	SCM (*fcn) (),
	178	int set);
	179
	180	SCM_API SCM scm_call_catching_errors (SCM (thunk)(), SCM (err_filter)(),
	181	void * closure);
	182
	183	SCM_API long scm_make_smob_type_mfpe (char *name, size_t size,
	184	SCM (*mark) (SCM),
	185	size_t (*free) (SCM),
	186	int (*print) (SCM, SCM,
	187	scm_print_state*),
	188	SCM (*equalp) (SCM, SCM));
	189
	190	SCM_API void scm_set_smob_mfpe (long tc,
	191	SCM (*mark) (SCM),
	192	size_t (*free) (SCM),
	193	int (print) (SCM, SCM, scm_print_state),
	194	SCM (*equalp) (SCM, SCM));
	195
	196	SCM_API SCM scm_strprint_obj (SCM obj);
	197	SCM_API SCM scm_read_0str (char *expr);
	198	SCM_API SCM scm_eval_0str (const char *expr);
	199
	200	SCM_API char *scm_i_object_chars (SCM);
	201
	202	#define SCM_CHARS(x) scm_i_object_chars(x)
	203	#define SCM_UCHARS(x) ((unsigned char *)SCM_CHARS(x))
	204
	205	SCM_API long scm_i_object_length (SCM);
	206
	207	#define SCM_LENGTH(x) scm_i_object_length(x)
	208
55d30fac	209	void scm_i_init_deprecated (void);
19e2247d	210
55d30fac	211	#endif
19e2247d	212
55d30fac	213	#endif /* SCM_DEPRECATED_H */
19e2247d	214
55d30fac MV	215	#if 0
55d30fac MV	216	/* TODO */
19e2247d	217
19e2247d MV	218	scm_strhash
	219
	220	scm_sym2vcell
	221	scm_sym2ovcell_soft
	222	scm_sym2ovcell
	223
	224	scm_intern_obarray_soft
	225	scm_intern_obarray
	226	scm_intern
	227	scm_intern0
	228
	229	scm_sysintern
	230	scm_sysintern0
	231	scm_sysintern0_no_module_lookup
	232
	233	scm_symbol_value0
	234	scm_string_to_obarray_symbol
	235	scm_intern_symbol
	236
	237	scm_unintern_symbol
	238	scm_symbol_binding
	239	scm_symbol_interned_p
	240
	241	scm_symbol_bound_p
	242	scm_symbol_set_x
	243	scm_gentemp
	244
	245	scm_init_symbols_deprecated
	246	scm_vector_set_length_x
	247
	248	SCM_OPDIRP
	249
	250	scm_fport
	251	scm_option
	252	SCM_CONST_LONG
	253	SCM_VCELL
	254	SCM_GLOBAL_VCELL
	255
	256	SCM_VCELL_INIT
	257	SCM_GLOBAL_VCELL_INIT
	258	scm_srcprops
	259	scm_srcprops_chunk
	260
	261	scm_info_frame
	262	scm_stack
	263	scm_array
	264	scm_array_dim
	265	SCM_ARRAY_CONTIGUOUS
	266
	267	SCM_HUGE_LENGTH
	268	SCM_FUNC_NAME
	269	SCM_WTA
	270	RETURN_SCM_WTA
	271
	272	SCM_VALIDATE_NUMBER_COPY
	273	SCM_VALIDATE_NUMBER_DEF_COPY
	274
	275	SCM_VALIDATE_STRINGORSUBSTR
	276	SCM_VALIDATE_ROSTRING
	277
	278	SCM_VALIDATE_ROSTRING_COPY
	279	SCM_VALIDATE_NULLORROSTRING_COPY
	280
	281	SCM_VALIDATE_RWSTRING
282	SCM_VALIDATE_OPDIR
283	scm_small_istr2int
284
285	scm_istr2int
286	scm_istr2flo
287	scm_istring2number
288	scm_istr2int
289
290	scm_istr2flo
291	scm_istring2number
292	scm_vtable_index_vcell
293
294	SCM_ECONSP
295	SCM_NECONSP
296
297	scm_tc16_variable
298
299	#endif