src/Pure/Concurrent/par_list_sequential.ML
author wenzelm
Thu Aug 18 17:30:47 2011 +0200 (2011-08-18)
changeset 44269 3ff2fd162aee
parent 41711 3422ae5aff3a
child 59004 6573e6d64ec8
permissions -rw-r--r--
updated sequential version (cf. b94951f06e48);
wenzelm@32816
     1
(*  Title:      Pure/Concurrent/par_list_sequential.ML
wenzelm@28546
     2
    Author:     Makarius
wenzelm@28546
     3
wenzelm@28546
     4
Dummy version of parallel list combinators -- plain sequential evaluation.
wenzelm@28546
     5
*)
wenzelm@28546
     6
wenzelm@29368
     7
structure Par_List: PAR_LIST =
wenzelm@28546
     8
struct
wenzelm@28546
     9
wenzelm@44269
    10
fun managed_results _ f = map (Exn.capture f);
wenzelm@41711
    11
fun map_name _ = map;
wenzelm@28546
    12
val map = map;
wenzelm@28546
    13
val get_some = get_first;
wenzelm@28556
    14
val find_some = find_first;
wenzelm@28546
    15
val exists = exists;
wenzelm@28546
    16
val forall = forall;
wenzelm@28546
    17
wenzelm@28546
    18
end;