+ font->filename = SCM_BOOL_F;
+ font->font_address = NULL;
+
+ SCM_NEWSMOB (smob, font_tag, font);
+
+ font->filename = file;
+ font->font_address = font_address;
+
+ return smob;
+}
+
+FTGLfont *
+get_font_address (SCM font_smob)
+{
+ struct font *font;
+
+ scm_assert_smob_type (font_tag, font_smob);
+ font = (struct font *) SCM_SMOB_DATA (font_smob);
+ return font->font_address;
+}
+
+SCM
+mark_font (SCM font_smob)
+{
+ struct font *font = (struct font *) SCM_SMOB_DATA (font_smob);
+
+ scm_gc_mark (font->filename);
+
+ return SCM_BOOL_F;
+}