mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
(scm_rstate, scm_rng, SCM_SLOPPY_CONSP, SCM_SLOPPY_NCONSP,
scm_tc7_ssymbol, scm_tc7_msymbol, scm_tcs_symbols): New.
This commit is contained in:
parent
2ce02471a4
commit
97f28fa42b
1 changed files with 10 additions and 23 deletions
|
@ -76,6 +76,16 @@ SCM_API SCM scm_load_scheme_module (SCM name);
|
|||
|
||||
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
|
||||
|
||||
void scm_i_init_deprecated (void);
|
||||
|
||||
#endif
|
||||
|
@ -85,29 +95,6 @@ void scm_i_init_deprecated (void);
|
|||
#if 0
|
||||
/* TODO */
|
||||
|
||||
scm_close_all_ports_except
|
||||
scm_rstate
|
||||
scm_rng
|
||||
scm_i_rstate
|
||||
|
||||
SCM_SLOPPY_STRINGP
|
||||
SCM_RWSTRINGP
|
||||
SCM_STRING_UCHARS
|
||||
SCM_STRING_CHARS
|
||||
|
||||
scm_read_only_string_p
|
||||
scm_makstr
|
||||
scm_makfromstr
|
||||
|
||||
scm_make_shared_substring
|
||||
scm_tc7_substring
|
||||
|
||||
SCM_SLOPPY_CONSP
|
||||
SCM_SLOPPY_NCONSP
|
||||
scm_tc7_ssymbol
|
||||
scm_tc7_msymbol
|
||||
scm_tcs_symbols
|
||||
|
||||
scm_variable_set_name_hint
|
||||
scm_builtin_variable
|
||||
SCM_VARVCELL
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue