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] |
Mikael Djurfeldt <mdj@nada.kth.se> writes: > SCM > scm_make_foo () > { > SCM z; > char *foo = scm_must_malloc (sizeof (struct foo), s_make_foo); Oops! Need to set foo->bar to some valid scheme value here: struct foo *foo = (struct foo *) scm_must_malloc (...); foo->bar = SCM_BOOL_F; > SCM_NEWCELL (z); > SCM_DEFER_INTS; > SCM_SETCDR (z, foo); > SCM_SETCAR (z, foo_type); > SCM_ALLOW_INTS; > return z; > } /mdj