Compile higher-order floe positions in deforestation pass

As the deforestation pass generates escaped Racket, we need to compile
any higher-order `floe` positions in the fusable list operations at
this stage, since the regular code generation step at the end of
compilation would not operate on these resultant escaped expressions.

qi-lib/flow/core/compiler/deforest/syntax.rkt

@@ -80,19 +80,21 @@
   #:attributes (f)
   #:literal-sets (fs-literals)
   #:datum-literals (filter)
-  (pattern (#%deforestable filter (f))))
-
+  (pattern (#%deforestable filter (f-uncompiled))
+    #:attr f (run-passes #'f-uncompiled)))
 (define-syntax-class fst-map
   #:attributes (f)
   #:literal-sets (fs-literals)
   #:datum-literals (map)
-  (pattern (#%deforestable map (f))))
+  (pattern (#%deforestable map (f-uncompiled))
+    #:attr f (run-passes #'f-uncompiled)))
 
 (define-syntax-class fst-filter-map
   #:attributes (f)
   #:literal-sets (fs-literals)
   #:datum-literals (filter-map)
-  (pattern (#%deforestable filter-map (f))))
+  (pattern (#%deforestable filter-map (f-uncompiled))
+    #:attr f (run-passes #'f-uncompiled)))
 
 (define-syntax-class fst-take
   #:attributes (n)
@@ -124,17 +126,19 @@
   #:datum-literals (foldr)
   (pattern (#%deforestable
             foldr
-            (op)
-            ((#%host-expression init)))))
+            (op-uncompiled)
+            ((#%host-expression init)))
+    #:attr op (run-passes #'op-uncompiled)))
 
 (define-syntax-class fsc-foldl
   #:attributes (op init)
   #:literal-sets (fs-literals)
   #:datum-literals (foldl)
   (pattern (#%deforestable
             foldl
-            (op)
-            ((#%host-expression init)))))
+            (op-uncompiled)
+            ((#%host-expression init)))
+    #:attr op (run-passes #'op-uncompiled)))
 
 (define-syntax-class cad*r-datum
   #:attributes (countdown)