diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-20 03:23:39 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-20 03:23:39 +0000 |
commit | 82ac0a63bfea374700e3167fbf15ec494dd2ca90 (patch) | |
tree | 2bf6df7cb7674c64d0011e064165e62a6cc82097 /doc/example-smob | |
parent | 215282c426234f6307ce49ee8813655ad190f439 (diff) | |
download | guile-82ac0a63bfea374700e3167fbf15ec494dd2ca90.tar.gz |
* image-type.c: Removed unused scm_smobfuns structure.
(init_image_type): Use standard smob type interface.
Diffstat (limited to 'doc/example-smob')
-rw-r--r-- | doc/example-smob/image-type.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/doc/example-smob/image-type.c b/doc/example-smob/image-type.c index abf4fe570..3c49e592e 100644 --- a/doc/example-smob/image-type.c +++ b/doc/example-smob/image-type.c @@ -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); |