Merge pull request #147 from countvajhula/fix-marshalling-issue

Fix marshalling issue
drym-org · Jan 6, 2024 · a14fc4f · a14fc4f
2 parents 59fedaa + 8851b15
commit a14fc4f
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 6 deletions.
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
@@ -14,12 +14,9 @@ jobs:
       fail-fast: true
       matrix:
         racket-variant: ['BC', 'CS']
-        racket-version: ['8.9', 'stable']
+        racket-version: ['8.5', 'stable']
         experimental: [false]
         include:
-          - racket-version: '8.5'
-            racket-variant: 'BC'
-            experimental: true
           - racket-version: 'current'
             racket-variant: 'CS'
             experimental: true

diff --git a/qi-lib/flow/core/deforest.rkt b/qi-lib/flow/core/deforest.rkt
@@ -1,10 +1,20 @@
 #lang racket/base
 
+;; This module implements the stream fusion optimization to "deforest"
+;; sequences of functional transformations (e.g. map, filter, fold, etc.)
+;; so that they avoid constructing intermediate representations on the
+;; way to producing the final result.
+;;
+;; See the wiki
+;;   https://github.com/drym-org/qi/wiki/The-Compiler#stream-fusion
+;; for an overview and some details of this implementation.
+
 (provide (for-syntax deforest-rewrite))
 
 (require (for-syntax racket/base
                      syntax/parse
                      racket/syntax-srcloc
+                     syntax/srcloc
                      "../extended/util.rkt")
          racket/performance-hint
          racket/match
@@ -264,11 +274,13 @@
                        (inline-compose1 [t.next t.f] ...
                                         p.next)
                        '#,(prettify-flow-syntax ctx)
-                       #,(syntax-srcloc ctx)))
+                       '#,(build-source-location-vector
+                           (syntax-srcloc ctx))))
                      p.name
                      '#,(prettify-flow-syntax ctx)
                      #f
-                     #,(syntax-srcloc ctx))))]))
+                     '#,(build-source-location-vector
+                         (syntax-srcloc ctx)))))]))
 
   ;; Performs one step of deforestation rewrite. Should be used as
   ;; many times as needed - until it returns the source syntax