mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* tags.h (SCM_IM_CALL_WITH_VALUES): New isym.

Browse source 
* eval.c (scm_m_at_call_with_values, scm_sym_at_call_with_values):
New.
(unmemocopy, scm_ceval, scm_deval): Handle new isym.
* eval.h (scm_sym_at_call_with_values, scm_m_at_call_with_values):
New delcarations to support above change.
This commit is contained in:
Marius Vollmer 2001-03-26 22:36:56 +00:00
parent 8c2c9967f8
commit baeda60023
2 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.h
View file

@ -170,6 +170,7 @@ extern SCM scm_sym_uq_splicing;
extern SCM scm_sym_dot;
extern SCM scm_sym_atapply;
extern SCM scm_sym_atcall_cc;
extern SCM scm_sym_at_call_with_values;
extern SCM scm_sym_delay;
extern SCM scm_sym_arrow;
extern SCM scm_sym_else;
@ -228,6 +229,7 @@ extern SCM scm_m_0_ify (SCM xorig, SCM env);
extern SCM scm_m_1_ify (SCM xorig, SCM env);
extern SCM scm_m_atfop (SCM xorig, SCM env);
extern SCM scm_m_atbind (SCM xorig, SCM env);
extern SCM scm_m_at_call_with_values (SCM xorig, SCM env);
extern int scm_badargsp (SCM formals, SCM args);
extern SCM scm_ceval (SCM x, SCM env);
extern SCM scm_deval (SCM x, SCM env);

1
libguile/tags.h
View file

@ -477,6 +477,7 @@ extern char *scm_isymnames[]; /* defined in print.c */
#define SCM_IM_BIND SCM_MAKISYM (31)
#define SCM_IM_DELAY SCM_MAKISYM (32)
#define SCM_IM_CALL_WITH_VALUES SCM_MAKISYM (33)
/* When a variable is unbound this is marked by the SCM_UNDEFINED
* value. The following is an unbound value which can be handled on