mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Fix argument type of arguments<=? instruction

Browse source 
* libguile/vm-engine.c (arguments<=?): Take an immediate argument.
This commit is contained in:
Andy Wingo 2017-10-30 10:24:45 +01:00
parent 5fb9b7d542
commit 7aff0fff22
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-engine.c
View file

@ -4164,7 +4164,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
NEXT (1); NEXT (1);
} }
VM_DEFINE_OP (201, check_arguments, "arguments<=?", OP1 (X8_S24)) VM_DEFINE_OP (201, check_arguments, "arguments<=?", OP1 (X8_C24))
{ {
scm_t_uint8 compare_result; scm_t_uint8 compare_result;
scm_t_uint32 expected; scm_t_uint32 expected;