Commit 3769b3fa authored by simonmar's avatar simonmar
Browse files

[project @ 2000-01-14 12:27:50 by simonmar]

expose 'par' now that we have an implementation for both sequential
and SMP ways.
parent 4a939ead
......@@ -92,14 +92,9 @@ yield = IO $ \s ->
seq :: a -> b -> b
seq x y = case (seq# x) of { 0# -> seqError; _ -> y }
par :: a -> b -> b
{-# INLINE par #-}
#if defined(__PARALLEL_HASKELL__) || defined (__GRANSIM__)
par :: a -> b -> b
par x y = case (par# x) of { 0# -> parError; _ -> y }
#else
par _ y = y
#endif
\end{code}
%************************************************************************
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment