author | wenzelm |
Fri, 10 Nov 2006 00:12:28 +0100 | |
changeset 21280 | b4aa7daa506b |
parent 21176 | 5ec545dbad6f |
child 21300 | 2fbe0044edd9 |
permissions | -rw-r--r-- |
(* Title: Pure/ML-Systems/polyml-4.9.1.ML ID: $Id$ Author: Makarius Compatibility wrapper for Poly/ML 4.9.1. *) use "ML-Systems/polyml-4.1.4-patch.ML"; use "ML-Systems/polyml.ML"; val pointer_eq = PolyML.pointerEq; (* FIXME slow version -- performance test *) structure String = struct open String; fun compare (s1: string, s2) = if s1 = s2 then General.EQUAL else if s1 < s2 then General.LESS else General.GREATER; end;