Changeset 5111 for src/Pugs/Bind.hs

Timestamp:

06/30/05 01:35:39 (4 years ago)

Author:

chromatic

svk:copy_cache_prev:

6965

Message:

Reverted #5108, as it broke binding analysis.

Files:

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

src/Pugs/Bind.hs

@@ -270 +270 @@
     boundScalar <- return $ defaultScalar `zip` (givenInvs ++ givenArgs) -- put, uh, something in $_
 
-    let newBindings = concat [bindings, boundInv, boundNamed, boundPos, boundScalar, boundArray, boundHash]
+    let newBindings = concat [bindings, boundInv, boundNamed, boundPos, boundHash, boundArray, boundScalar]
     let newParams = params \\ (map fst newBindings);