* tags.h (SCM_IM_CALL_WITH_VALUES): New isym.

* 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.

diff --git a/libguile/eval.h b/libguile/eval.h
index 0db2852..ec387a4 100644 (file)
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -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);

diff --git a/libguile/tags.h b/libguile/tags.h
index f69031d..846d270 100644 (file)
--- a/libguile/tags.h
+++ b/libguile/tags.h
@@ -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