mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
Correct typing of assertion in the `wind' instruction.
* libguile/vm-i-system.c (wind): Check `scm_to_bool (scm_thunk_p (x))' instead of `scm_thunk_p'.
This commit is contained in:
parent
b662b7e971
commit
e9c898bf24
1 changed files with 4 additions and 2 deletions
|
@ -1570,8 +1570,10 @@ VM_DEFINE_INSTRUCTION (86, wind, "wind", 0, 2, 0)
|
|||
/* Push wind and unwind procedures onto the dynamic stack. Note that neither
|
||||
are actually called; the compiler should emit calls to wind and unwind for
|
||||
the normal dynamic-wind control flow. */
|
||||
VM_ASSERT (scm_thunk_p (wind), vm_error_not_a_thunk ("dynamic-wind", wind));
|
||||
VM_ASSERT (scm_thunk_p (unwind), vm_error_not_a_thunk ("dynamic-wind", unwind));
|
||||
VM_ASSERT (scm_to_bool (scm_thunk_p (wind)),
|
||||
vm_error_not_a_thunk ("dynamic-wind", wind));
|
||||
VM_ASSERT (scm_to_bool (scm_thunk_p (unwind)),
|
||||
vm_error_not_a_thunk ("dynamic-wind", unwind));
|
||||
scm_i_set_dynwinds (scm_cons (scm_cons (wind, unwind), scm_i_dynwinds ()));
|
||||
NEXT;
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue