| author | haftmann |
| Mon, 07 Dec 2015 10:49:08 +0100 | |
| changeset 61823 | 5daa82ba4078 |
| parent 54726 | 5285805af26c |
| permissions | -rw-r--r-- |
(* Title: Pure/ML-Systems/polyml-5.5.2.ML Author: Makarius Compatibility wrapper for Poly/ML 5.5.2. *) structure Thread = struct open Thread; structure Thread = struct open Thread; fun numProcessors () = (case Thread.numPhysicalProcessors () of SOME n => n | NONE => Thread.numProcessors ()); end; end; use "ML-Systems/polyml.ML";