From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 20:52:35 +0000 Subject: 20060303-partial --- module/sort.m | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 module/sort.m (limited to 'module/sort.m') diff --git a/module/sort.m b/module/sort.m new file mode 100644 index 00000000..9a4828b3 --- /dev/null +++ b/module/sort.m @@ -0,0 +1,8 @@ +Sort: module { + PATH: con "/dis/lib/sort.dis"; + sort: fn[S, T](s: S, a: array of T) + for{ + S => + gt: fn(s: self S, x, y: T): int; + }; +}; -- cgit v1.2.3