From 0609a60adedf6620eeac60e5701f9416c4702826 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 26 May 2014 13:18:41 -0400
Subject: allow specifying sacrifices for fuse

---
 bin/smt_fusion | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/smt_fusion b/bin/smt_fusion
index 71d627c..dca7901 100644
--- a/bin/smt_fusion
+++ b/bin/smt_fusion
@@ -49,8 +49,8 @@ sub demons_of_type {
 }
 
 sub fuse {
-    my ($demon1, $demon2) = @_;
-    print _fuse($demon1, $demon2, $options), "\n";
+    my ($demon1, $demon2, $sacrifice) = @_;
+    print _fuse($demon1, $demon2, { sacrifice => $sacrifice, %$options }), "\n";
 }
 
 sub fusions_for {
-- 
cgit v1.2.3