This is the mail archive of the guile@cygnus.com mailing list for the guile project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Recent guile-tcltk/guile-tcl.c GC problem

Greetings!

It appears that the file guile-tcl.c in guile-tcltk suffers from the
recent change for smobs and use of SCM_GC8MARKP.

Here is a change I have applied to my copy and now seems to work - for
the supplied demos graph.scm and breakout.scm.

But I really don't know enuf about this stuff (yet!) to be sure that
this change is the proper one.

Please let me know whether or not this is alright....

Thankx
	-jbb

-------------------------Begin Attachment-------------------------
Index: guile-tcl.c
===================================================================
RCS file: /egcs/carton/cvsfiles/guile/guile-tcltk/guile-tcl.c,v
retrieving revision 1.12
diff -c -r1.12 guile-tcl.c
*** guile-tcl.c	1998/07/07 10:51:50	1.12
--- guile-tcl.c	1998/08/01 23:32:29
***************
*** 70,79 ****
  mark_interp (obj)
       SCM obj;
  {
-   if (SCM_GC8MARKP (obj))
-     return SCM_BOOL_F;
- 
-   SCM_SETGC8MARK (obj);
    return SCM_PROPS (obj); 
  }
  
--- 70,75 ----