From c3b5e1988c74f430a93b35b36ca2475a45aee193 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sat, 8 Nov 2003 22:20:54 +0000 Subject: [PATCH] (scm_dynamic_unlink): Need scm_list_1 on error message argument. Reported by Mike Gran. --- libguile/dynl.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/libguile/dynl.c b/libguile/dynl.c index 600707b15..039f600b4 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -1,6 +1,7 @@ /* 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 * 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 */ SCM_VALIDATE_SMOB (SCM_ARG1, dobj, dynamic_obj); if (DYNL_HANDLE (dobj) == NULL) { - SCM_MISC_ERROR ("Already unlinked: ~S", dobj); + SCM_MISC_ERROR ("Already unlinked: ~S", scm_list_1 (dobj)); } else { SCM_DEFER_INTS; sysdep_dynl_unlink (DYNL_HANDLE (dobj), FUNC_NAME);