From e53c1a090eb9cfac3cb23d10d981648d02518ed1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 13 Aug 2021 04:18:57 -0400
Subject: Made program: specify its bindings the same way as syntax:.

---
 stdlib/source/test/aedifex/package.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/test/aedifex/package.lux')

diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index e05dc712f..e05c1d753 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -80,7 +80,7 @@
                               _ false)
                             (let [expected_sha1 (//hash.sha-1 expected_library)
                                   expected_md5 (//hash.md5 expected_library)]
-                              (and (is? expected_library actual_library)
+                              (and (same? expected_library actual_library)
                                    (case library_status
                                      (#//status.Verified actual_sha1 expected_md5)
                                      (and (//hash\= expected_sha1 actual_sha1)
@@ -90,7 +90,7 @@
                                      false)))
                             (let [expected_sha1 (//hash.sha-1 binary_pom)
                                   expected_md5 (//hash.md5 binary_pom)]
-                              (and (is? expected_pom actual_pom)
+                              (and (same? expected_pom actual_pom)
                                    (|> (do try.monad
                                          [xml_pom (\ utf8.codec decode binary_pom)
                                           decoded_pom (\ xml.codec decode xml_pom)]
-- 
cgit v1.2.3