Fix binding used in a floe position in pass

We investigated and fixed this in the Qi meeting today. It was another
"vindaloo" with currying evaluating its arguments at compile time when
the binding is still `undefined`. We fixed it in the usual way of
replacing currying with a lambda.

This is one of the issues identified in #181.

qi-lib/flow/core/compiler.rkt

@@ -405,7 +405,10 @@ the DSL.
       [_:id
        #'filter-values]
       [(_ onex:clause)
-       #'(curry filter-values (qi0->racket onex))]))
+       #'(λ args
+           (apply filter-values
+                  (qi0->racket onex)
+                  args))]))
 
   (define (fold-left-parser stx)
     (syntax-parse stx

qi-test/tests/flow.rkt

@@ -472,15 +472,15 @@
                           (filter p)))
                   odd?)
                  (list 1 3 5 7 9))
+    (test-equal? "binding a value used in a floe position"
+                 ((☯ (~> (as p)
+                         (range 10)
+                         △
+                         (pass p)
+                         ▽))
+                  odd?)
+                 (list 1 3 5 7 9))
     ;; See issue #181
-    ;; (test-equal? "binding a value used in a floe position"
-    ;;              ((☯ (~> (as p)
-    ;;                      (range 10)
-    ;;                      △
-    ;;                      (pass p)
-    ;;                      ▽))
-    ;;               odd?)
-    ;;              (list 1 3 5 7 9))
     ;; (test-exn "using a qi binding as a primitive flow"
     ;;           exn:fail:contract:arity?
     ;;           (thunk ((☯ (~> (as p) p)) odd?)))