1 files changed, 27 insertions, 0 deletions
diff --git a/dev-lang/mercury-extras/files/mercury-extras-10.04_beta1-mercury_tcltk.patch b/dev-lang/mercury-extras/files/mercury-extras-10.04_beta1-mercury_tcltk.patch
new file mode 100644
index 000000000000..b05fbe018d4f
--- /dev/null
+++ b/dev-lang/mercury-extras/files/mercury-extras-10.04_beta1-mercury_tcltk.patch
@@ -0,0 +1,27 @@
+diff -ur mercury-extras-10.04-beta.orig/graphics/mercury_tcltk/Mmakefile mercury-extras-10.04-beta/graphics/mercury_tcltk/Mmakefile
+--- mercury-extras-10.04-beta.orig/graphics/mercury_tcltk/Mmakefile	2005-08-15 16:11:42.000000000 +1200
++++ mercury-extras-10.04-beta/graphics/mercury_tcltk/Mmakefile	2010-02-13 13:27:23.000000000 +1300
+@@ -8,10 +8,7 @@
+ 
+ # You may need to modify the line below
+ 
+-MLLIBS    = -ltk8.4 -ltcl8.4 -L/usr/X11R6/lib -lX11 -lXmu -lXext -lm -ldl \
+-   	    -lXt -lICE -lSM
+-
+-MLFLAGS	  = -R/usr/X11R6/lib
++MLLIBS    = -ltk -ltcl
+ 
+ # On some Linux machines you may need to let mgnuc know where the 
+ # tcl/tk header files are. 
+diff -ur mercury-extras-10.04-beta.orig/graphics/mercury_tcltk/mtcltk.m mercury-extras-10.04-beta/graphics/mercury_tcltk/mtcltk.m
+--- mercury-extras-10.04-beta.orig/graphics/mercury_tcltk/mtcltk.m	2007-08-21 14:47:37.000000000 +1200
++++ mercury-extras-10.04-beta/graphics/mercury_tcltk/mtcltk.m	2010-02-13 13:45:21.000000000 +1300
+@@ -154,7 +154,7 @@
+     MR_incr_hp(argv_word, argc + 1);
+     argv = (char **) argv_word;
+ 
+-    for (i = 0, l = Args; l != list_empty(); l = list_tail(l), i++) {
++    for (i = 0, l = Args; l != MR_list_empty(); l = MR_list_tail(l), i++) {
+         argv[i] = (char *) MR_list_head(l);
+     }
+