mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* image-type.c: Removed unused scm_smobfuns structure.

Browse source 
(init_image_type): Use standard smob type interface.
This commit is contained in:
Mikael Djurfeldt 2000-06-20 03:23:39 +00:00
parent 215282c426
commit 82ac0a63bf
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
/* image-type.c
*
* Copyright (C) 1998 Free Software Foundation, Inc.
* Copyright (C) 1998, 2000 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
@ -115,15 +115,13 @@ print_image (SCM image_smob, SCM port, scm_print_state *pstate)
return 1;
}
static scm_smobfuns image_funs = {
mark_image, free_image, print_image, 0
};
void
init_image_type ()
{
image_tag = scm_make_smob_type_mfpe ("image", sizeof (struct image),
mark_image, free_image, print_image, NULL);
image_tag = scm_make_smob_type ("image", sizeof (struct image));
scm_set_smob_mark (image_tag, mark_image);
scm_set_smob_free (image_tag, free_image);
scm_set_smob_print (image_tag, print_image);
scm_make_gsubr ("clear-image", 1, 0, 0, clear_image);
scm_make_gsubr ("make-image", 3, 0, 0, make_image);