diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-06-16 17:52:44 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-16 17:52:44 -0400 |
commit | 8c2eb37e99b79153a98fbdebce39b4064dcdb2e9 (patch) | |
tree | 03a63951b832edfdb7a5c7cb9c05345c0f097248 /lib/ur/listPair.ur | |
parent | 4dce690086c8d6132c22d5c47a0561a4b1261293 (diff) |
Fix a variable capture bug in nested JavaScript; some more list stuff
Diffstat (limited to 'lib/ur/listPair.ur')
-rw-r--r-- | lib/ur/listPair.ur | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/ur/listPair.ur b/lib/ur/listPair.ur index 745e436c..0182af19 100644 --- a/lib/ur/listPair.ur +++ b/lib/ur/listPair.ur @@ -1,15 +1,15 @@ -fun foldlPartial [a] [b] [c] f = +fun foldlAbort [a] [b] [c] f = let - fun foldlPartial' acc ls1 ls2 = + fun foldlAbort' acc ls1 ls2 = case (ls1, ls2) of ([], []) => Some acc | (x1 :: ls1, x2 :: ls2) => (case f x1 x2 acc of None => None - | Some acc' => foldlPartial' acc' ls1 ls2) + | Some acc' => foldlAbort' acc' ls1 ls2) | _ => None in - foldlPartial' + foldlAbort' end fun mapX [a] [b] [ctx ::: {Unit}] f = |