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

* image-type.c: Updated example to use scm_make_smob_type_mfpe,

Browse source 
SCM_RETURN_NEWSMOB, SCM_NEWSMOB function and macros.
This commit is contained in:
Mikael Djurfeldt 1999-07-07 09:41:38 +00:00
parent 5bdab01690
commit 8ac40ce887
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
doc/example-smob/image-type.c
View file

@ -40,7 +40,6 @@ static SCM
make_image (SCM name, SCM s_width, SCM s_height) make_image (SCM name, SCM s_width, SCM s_height)
{ {
struct image *image; struct image *image;
SCM image_smob;
int width, height; int width, height;
SCM_ASSERT (SCM_NIMP (name) && SCM_STRINGP (name), name, SCM_ASSERT (SCM_NIMP (name) && SCM_STRINGP (name), name,
@ -58,11 +57,7 @@ make_image (SCM name, SCM s_width, SCM s_height)
image->name = name; image->name = name;
image->update_func = SCM_BOOL_F; image->update_func = SCM_BOOL_F;
SCM_NEWCELL (image_smob); SCM_RETURN_NEWSMOB (image_tag, image);
SCM_SETCDR (image_smob, image);
SCM_SETCAR (image_smob, image_tag);
return image_smob;
} }
static SCM static SCM
@ -127,7 +122,8 @@ static scm_smobfuns image_funs = {
void void
init_image_type () init_image_type ()
{ {
image_tag = scm_newsmob (&image_funs); image_tag = scm_make_smob_type_mfpe ("image", sizeof (struct image),
mark_image, free_image, print_image, NULL);
scm_make_gsubr ("clear-image", 1, 0, 0, clear_image); scm_make_gsubr ("clear-image", 1, 0, 0, clear_image);
scm_make_gsubr ("make-image", 3, 0, 0, make_image); scm_make_gsubr ("make-image", 3, 0, 0, make_image);