summaryrefslogtreecommitdiff
path: root/devel/sml_tk/files/patch-src-fonts.sml
diff options
context:
space:
mode:
authorMartin Wilke <miwi@FreeBSD.org>2008-06-21 09:56:54 +0000
committerMartin Wilke <miwi@FreeBSD.org>2008-06-21 09:56:54 +0000
commita15faa6309adb4b41cc265c2c5a9943b92c3c9b5 (patch)
tree19cb3988e31364642a7fee8bdfb87580516d7cdb /devel/sml_tk/files/patch-src-fonts.sml
parent- Update to 0.3.7. (diff)
sml_tk is a Standard ML package providing a portable, typed and abstract
interface to the user interface description and command language Tcl/Tk. It allows the implementation of graphical user interfaces in a structured and reusable way, supported by the powerful module system of Standard ML. WWW: http://www.informatik.uni-bremen.de/~cxl/sml_tk PR: ports/119640 Submitted by: Timothy Bourke <timbob at bigpond.com>
Diffstat (limited to 'devel/sml_tk/files/patch-src-fonts.sml')
-rw-r--r--devel/sml_tk/files/patch-src-fonts.sml13
1 files changed, 13 insertions, 0 deletions
diff --git a/devel/sml_tk/files/patch-src-fonts.sml b/devel/sml_tk/files/patch-src-fonts.sml
new file mode 100644
index 000000000000..16cf8df08da1
--- /dev/null
+++ b/devel/sml_tk/files/patch-src-fonts.sml
@@ -0,0 +1,13 @@
+--- ./src/fonts.sml.orig Fri Mar 30 23:39:12 2001
++++ src/fonts.sml Sun Jan 13 11:03:51 2008
+@@ -109,8 +109,8 @@
+ fun read_em si = if TextIO.endOfStream si
+ then [] before (TextIO.closeIn si;
+ TextIO.closeOut so)
+- else (splitFields
+- (TextIO.inputLine si))::(read_em si)
++ else (splitFields (valOf
++ (TextIO.inputLine si)))::(read_em si)
+ in read_em si
+ end
+