github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-01 19:55:34 +03:00
Code Issues Projects Releases Wiki Activity

Use while to define forLoop.

Browse Source
This commit is contained in:
Rob Rix 2018-03-13 16:10:20 -04:00
parent eb364317cb
commit 1e1495a507
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Control/Abstract/Value.hs
View File

@ -86,12 +86,7 @@ forLoop :: MonadValue term value m
forLoop initial cond step body = do forLoop initial cond step body = do
void initial void initial
env <- getGlobalEnv env <- getGlobalEnv
localEnv (mappend env) (fix $ \ loop -> do localEnv (mappend env) (while cond (body *> step))
cond' <- cond
ifthenelse cond' (do
void body
void step
loop) unit)
-- | The fundamental looping primitive, built on top of ifthenelse. -- | The fundamental looping primitive, built on top of ifthenelse.
while :: MonadValue term value m => m value -> m value -> m value while :: MonadValue term value m => m value -> m value -> m value