Revert "Fix reordering of clauses in letrec*"

This reverts commit 47f2eb7.
gambit · Jul 30, 2021 · d1a6c6b · d1a6c6b
1 parent 47f2eb7
commit d1a6c6b
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/gsc/_ptree1.scm b/gsc/_ptree1.scm
@@ -1896,9 +1896,8 @@
             (let* ((var (car l))
                    (val (val-of var)))
               (if (or (prc? val)
-                      (and (not *?)
-                           (not (varset-intersects? (bound-free-variables val)
-                                                    vars-set))))
+                      (not (varset-intersects? (bound-free-variables val)
+                                               vars-set)))
                 (loop1 (cdr l)
                        (cons var vars-b)
                        (cons val vals-b)