src/Pure/ML-Systems/polyml-5.5.3.ML
author wenzelm
Sat, 23 May 2015 17:19:37 +0200
changeset 60299 5ae2a2e74c93
parent 58470 890d8286fd4e
permissions -rw-r--r--
clarified NEWS: document_files are officially required since Isabelle2014, but the absence was tolerated as legacy feature;

(*  Title:      Pure/ML-Systems/polyml-5.5.3.ML
    Author:     Makarius

Compatibility wrapper for Poly/ML 5.5.3.
*)

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";