RTL: Local 0 is the procedure

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

diff --git a/libguile/vm.c b/libguile/vm.c
index dd016b7..e87420b 100644 (file)
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -599,8 +599,8 @@ static SCM rtl_apply;
 static SCM rtl_values;
 
 static const scm_t_uint32 rtl_boot_continuation_code[] = {
-  SCM_PACK_RTL_24 (scm_rtl_op_halt_values, 0), /* empty stack frame in r0-r2, results from r3 */
-  SCM_PACK_RTL_24 (scm_rtl_op_halt, 0) /* result in r0 */
+  SCM_PACK_RTL_24 (scm_rtl_op_halt_values, 0),
+  SCM_PACK_RTL_24 (scm_rtl_op_halt, 0)
 };
 
 static scm_t_uint32* rtl_boot_multiple_value_continuation_code =
@@ -610,11 +610,11 @@ static scm_t_uint32* rtl_boot_single_value_continuation_code =
   (scm_t_uint32 *) rtl_boot_continuation_code + 1;
 
 static const scm_t_uint32 rtl_apply_code[] = {
-  SCM_PACK_RTL_24 (scm_rtl_op_apply, 0) /* proc in r0, args from r1, nargs set */
+  SCM_PACK_RTL_24 (scm_rtl_op_apply, 0) /* proc in r1, args from r2, nargs set */
 };
 
 static const scm_t_uint32 rtl_values_code[] = {
-  SCM_PACK_RTL_24 (scm_rtl_op_values, 0) /* vals from r0 */
+  SCM_PACK_RTL_24 (scm_rtl_op_values, 0) /* vals from r1 */
 };