mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

fix error-handling of apply to non-list

Browse source 
* libguile/vm-engine.c (vm_error_apply_to_non_list): Sync registers
  before erroring. Fix type of finish_args.  Thanks to Hans Aberg for
  the report.
This commit is contained in:
Andy Wingo 2011-01-26 21:44:12 +01:00
parent c52f77ef4e
commit 1cc0b6adde
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -21,6 +21,7 @@ Contributors since the last release:
For fixes or providing information which led to a fix: For fixes or providing information which led to a fix:
Hans Aberg
David Allouche David Allouche
Andrew Bagdanov Andrew Bagdanov
Martin Baulig Martin Baulig

5
libguile/vm-engine.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc. /* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -154,8 +154,9 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
goto vm_error; goto vm_error;
vm_error_apply_to_non_list: vm_error_apply_to_non_list:
SYNC_ALL ();
scm_error (scm_arg_type_key, "apply", "Apply to non-list: ~S", scm_error (scm_arg_type_key, "apply", "Apply to non-list: ~S",
finish_args, finish_args); scm_list_1 (finish_args), scm_list_1 (finish_args));
goto vm_error; goto vm_error;
vm_error_kwargs_length_not_even: vm_error_kwargs_length_not_even: