Unexpanded ~S macro in error msg

Unexpanded ~S macro in error msg

[Mike Gran]

In Guile 1.6.4 (on Slackware 9.0 on i386), the guile function
dynamic-unlink in dynl.c returns an error message with a raw "~S" in
the message.

To see, try this.

(define libm-obj (dynamic-link "libm"))
(dynamic-unlink libm-obj)
(dynamic-unlink libm-obj)

And it will return an error message "Already unlinked: ~S"

-- 
Mike Gran
spikegran@earthlink.net

__________________________________
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search
http://shopping.yahoo.com


_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-guile

Re: Unexpanded ~S macro in error msg

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 240 bytes --]

Mike Gran <spk121@yahoo.com> writes:
>
> In Guile 1.6.4 (on Slackware 9.0 on i386), the guile function
> dynamic-unlink in dynl.c returns an error message with a raw "~S" in
> the message.

Thanks.  A misuse of the error function I think.


[-- Attachment #2: dynl.c.unlinked.diff --]
[-- Type: text/plain, Size: 458 bytes --]

--- dynl.c.~1.78.~	1970-01-01 10:00:01.000000000 +1000
+++ dynl.c	2003-11-05 07:25:23.000000000 +1000
@@ -179,7 +179,7 @@
   /*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 {
     sysdep_dynl_unlink (DYNL_HANDLE (dobj), FUNC_NAME);
     SET_DYNL_HANDLE (dobj, NULL);

[-- Attachment #3: Type: text/plain, Size: 136 bytes --]

_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-guile