summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/support/cltkWait.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/labltk/support/cltkWait.c')
-rw-r--r--otherlibs/labltk/support/cltkWait.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/labltk/support/cltkWait.c b/otherlibs/labltk/support/cltkWait.c
index 57028372f..5e621470c 100644
--- a/otherlibs/labltk/support/cltkWait.c
+++ b/otherlibs/labltk/support/cltkWait.c
@@ -57,7 +57,7 @@ static void WaitVisibilityProc(ClientData clientData, XEvent *eventPtr)
}
/* Sets up a callback upon Visibility of a window */
-value camltk_wait_vis(value win, value cbid) /* ML */
+CAMLprim value camltk_wait_vis(value win, value cbid)
{
struct WinCBData *vis =
(struct WinCBData *)stat_alloc(sizeof(struct WinCBData));
@@ -84,7 +84,7 @@ static void WaitWindowProc(ClientData clientData, XEvent *eventPtr)
}
/* Sets up a callback upon window destruction */
-value camltk_wait_des(value win, value cbid) /* ML */
+CAMLprim value camltk_wait_des(value win, value cbid)
{
struct WinCBData *vis =
(struct WinCBData *)stat_alloc(sizeof(struct WinCBData));