mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +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 /* 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 * 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 * 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; return 1;
} }
static scm_smobfuns image_funs = {
mark_image, free_image, print_image, 0
};
void void
init_image_type () init_image_type ()
{ {
image_tag = scm_make_smob_type_mfpe ("image", sizeof (struct image), image_tag = scm_make_smob_type ("image", sizeof (struct image));
mark_image, free_image, print_image, NULL); 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 ("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);