summaryrefslogtreecommitdiff
path: root/libguile/eval.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eval.h')
-rw-r--r--libguile/eval.h6
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/eval.h b/libguile/eval.h
index 6315fe4aa..43d967ab3 100644
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -92,6 +92,12 @@ SCM_API SCM scm_eval_options_interface (SCM setting);
& (SCM_UNPACK (n) >> 8))
#define SCM_IDIST(n) (SCM_UNPACK (n) >> 20)
#define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK (n))
+#define SCM_MAKE_ILOC(frame_nr, binding_nr, last_p) \
+ SCM_PACK ( \
+ ((frame_nr) << 8) \
+ + ((binding_nr) << 20) \
+ + ((last_p) ? SCM_ICDR : 0) \
+ + scm_tc8_iloc )