summaryrefslogtreecommitdiff
path: root/doc/example-smob
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-06-20 03:23:39 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-06-20 03:23:39 +0000
commit82ac0a63bfea374700e3167fbf15ec494dd2ca90 (patch)
tree2bf6df7cb7674c64d0011e064165e62a6cc82097 /doc/example-smob
parent215282c426234f6307ce49ee8813655ad190f439 (diff)
downloadguile-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.c12
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);