Rename scm_tc7_rtl_program to scm_tc7_program

[bpt/guile.git] / libguile / control.c

diff --git a/libguile/control.c b/libguile/control.c
index 4b51edf..e6813e2 100644 (file)
--- a/libguile/control.c
+++ b/libguile/control.c
@@ -70,7 +70,7 @@ make_partial_continuation (SCM vm_cont)
   scm_t_bits flags = SCM_F_PROGRAM_IS_PARTIAL_CONTINUATION;
   SCM ret;
 
-  ret = scm_words (scm_tc7_rtl_program | (nfree << 16) | flags, nfree + 2);
+  ret = scm_words (scm_tc7_program | (nfree << 16) | flags, nfree + 2);
   SCM_SET_CELL_WORD_1 (ret, compose_continuation_code);
   SCM_RTL_PROGRAM_FREE_VARIABLE_SET (ret, 0, vm_cont);