19 lines
481 B
C
19 lines
481 B
C
--- guile-gtk.c.orig Wed Apr 30 23:26:36 2003
|
|
+++ guile-gtk.c Wed Apr 30 23:27:57 2003
|
|
@@ -19,6 +19,7 @@
|
|
#include <string.h>
|
|
#include <config.h>
|
|
#include <assert.h>
|
|
+#include <sys/types.h>
|
|
#ifdef GTK_2_0
|
|
#include <gtk-2.0/gtk/gtk.h>
|
|
#include <gtk-2.0/gdk/gdkprivate.h>
|
|
@@ -44,6 +45,8 @@
|
|
#ifndef SCM_VECTOR_SET
|
|
#define SCM_VECTOR_SET(obj,i,v) (SCM_VELTS(obj)[i]=(v))
|
|
#endif
|
|
+
|
|
+typedef unsigned long ulong;
|
|
|
|
static SCM
|
|
sgtk_make_cell (scm_t_bits word0, scm_t_bits word1)
|