mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

(scm_dynamic_unlink): Need scm_list_1 on error message

Browse source 
argument.  Reported by Mike Gran.
This commit is contained in:
Kevin Ryde 2003-11-08 22:20:54 +00:00
parent a95da9fa74
commit c3b5e1988c
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/dynl.c
View file

@ -1,6 +1,7 @@
/* dynl.c - dynamic linking /* dynl.c - dynamic linking
* *
* Copyright (C) 1990, 91, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001 Free Software Foundation, Inc. * Copyright (C) 1990, 91, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, 2003
* Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -394,7 +395,7 @@ SCM_DEFINE (scm_dynamic_unlink, "dynamic-unlink", 1, 0, 0,
/*fixme* GC-problem */ /*fixme* GC-problem */
SCM_VALIDATE_SMOB (SCM_ARG1, dobj, dynamic_obj); SCM_VALIDATE_SMOB (SCM_ARG1, dobj, dynamic_obj);
if (DYNL_HANDLE (dobj) == NULL) { if (DYNL_HANDLE (dobj) == NULL) {
SCM_MISC_ERROR ("Already unlinked: ~S", dobj); SCM_MISC_ERROR ("Already unlinked: ~S", scm_list_1 (dobj));
} else { } else {
SCM_DEFER_INTS; SCM_DEFER_INTS;
sysdep_dynl_unlink (DYNL_HANDLE (dobj), FUNC_NAME); sysdep_dynl_unlink (DYNL_HANDLE (dobj), FUNC_NAME);