refactors create-lock to use same include file

Hadjime · Feb 4, 2021 · 494cca9 · 494cca9
1 parent 659b750
commit 494cca9
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/src/wallet/puzzles/rl.clvm b/src/wallet/puzzles/rl.clvm
@@ -37,15 +37,13 @@
                     (unquote (c or (r args)))))
             0))
 
+    (include create-lock-puzzlehash.clvm)
+
     (defun create-lock (consolidating_primary_input consolidating_coin_puzzle_hash outgoing_amount)
         (list CREATE_COIN
-              (sha256tree (list r
-                                (list c
-                                      (list q
-                                            (sha256 consolidating_primary_input
-                                                    consolidating_coin_puzzle_hash
-                                                    outgoing_amount))
-                                      (q (q ())))))
+              (create-lock-puzzlehash (sha256 consolidating_primary_input
+                                              consolidating_coin_puzzle_hash
+                                              outgoing_amount))
               0))
 
     (defun aggregation (origin_id