Changeset 3530 for src/Pugs/Junc.hs

Timestamp:

05/20/05 21:18:46 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5107

Message:

* move comment to where they belong

Files:

• src/Pugs/Junc.hs (modified) (1 diff)

src/Pugs/Junc.hs

@@ -87 +87 @@
     dups = Set.fromList (ds ++ [ v | (v:_:_) <- group $ sort (vs ++ ds) ])
 
+-- OK... Now let's implement the hideously clever autothreading algorithm.
+-- First pass - thread thru all() and none()
+-- Second pass - thread thru any() and one()
+
 juncApply :: ([ApplyArg] -> Eval Val) -> [ApplyArg] -> Eval Val
 juncApply f args