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 -> ...@@ -92,14 +92,9 @@ yield = IO $ \s ->
seq :: a -> b -> b seq :: a -> b -> b
seq x y = case (seq# x) of { 0# -> seqError; _ -> y } seq x y = case (seq# x) of { 0# -> seqError; _ -> y }
par :: a -> b -> b
{-# INLINE par #-} {-# INLINE par #-}
#if defined(__PARALLEL_HASKELL__) || defined (__GRANSIM__) par :: a -> b -> b
par x y = case (par# x) of { 0# -> parError; _ -> y } par x y = case (par# x) of { 0# -> parError; _ -> y }
#else
par _ y = y
#endif
\end{code} \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