I just committed the fix and test case. Thanks!
Ludo’.
Hi Stefan!
Stefan Israelsson Tampe stefan.ita...@gmail.com skribis:
--- a/module/language/tree-il/cse.scm
+++ b/module/language/tree-il/cse.scm
@@ -324,10 +324,11 @@
(and ( n env-len)
(match (vlist-ref env n)
((#(exp* name sym
Hello,
This piece of code triggers a CSE bug:
--8---cut here---start-8---
(use-modules (ice-9 match))
(define (snix-derivation-guix-package derivation)
(match derivation
(((_ _ _))
#t)))
--8---cut
Hey, the unroll code looks really weird in find-dominating-lexical, I know
it's difficult to
just come in and propose a change, but hey it can only help :-)
With this code,
(define (find-dominating-lexical exp effects env db)
(define (entry-matches? v1 v2)
(match (if (vector? v1) v1
Hi Stefan,
Can you send the proposed change as a unidiff patch?
TIA,
Ludo’.
