Skip to content

Commit efddf9d

Browse files
committed
fix up
1 parent b21919f commit efddf9d

File tree

1 file changed

+1
-11
lines changed

1 file changed

+1
-11
lines changed

src/egglog/run-egglog.rkt

Lines changed: 1 addition & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1659,19 +1659,9 @@
16591659
(displayln egglog-program egglog-in)
16601660
(close-output-port egglog-in)
16611661

1662-
(define all-variants
1662+
(define results
16631663
(for/list ([expr (econfig-exprs config)])
16641664
(read egglog-output)))
1665-
(define results
1666-
(if (equal? (econfig-num-variants config) 0)
1667-
all-variants
1668-
(for/list ([expr (econfig-exprs config)] [variants all-variants])
1669-
;; list of exprs for this expr at each point
1670-
(append variants
1671-
(map remove-ast-prefix
1672-
(for/list ([i (in-range (econfig-num-sample config))])
1673-
;; egglog extracts one thing per point
1674-
(first (read egglog-output))))))))
16751665

16761666
(close-input-port egglog-output)
16771667

0 commit comments

Comments
 (0)