Improve Set and Map modules in the standard library (#3120)

* Updates the standard library to anoma/juvix-stdlib#130 * Also changes `null` to `isEmpty`, which required updating some tests --------- Co-authored-by: Paul Cadman <[email protected]>
anoma · Oct 24, 2024 · 8f180cc · 8f180cc
1 parent e951df0
commit 8f180cc
Show file tree

Hide file tree

Showing 8 changed files with 16 additions and 16 deletions.
diff --git a/examples/milestone/TicTacToe/Logic/GameState.juvix b/examples/milestone/TicTacToe/Logic/GameState.juvix
@@ -44,4 +44,4 @@ won (state : GameState) : Bool :=
 draw (state : GameState) : Bool :=
   let
     squares := Board.squares (GameState.board state);
-  in null (possibleMoves (flatten squares));
+  in isEmpty (possibleMoves (flatten squares));
diff --git a/juvix-stdlib b/juvix-stdlib
diff --git a/tests/Anoma/Compilation/positive/test007.juvix b/tests/Anoma/Compilation/positive/test007.juvix
@@ -14,13 +14,13 @@ map' {A B} (f : A → B) : List A → List B :=
 -- TODO: Restore when anoma backend supports strings
 -- terminating
 -- map'' {A B} {{Partial}} (f : A → B) (x : List A) : List B :=
---   if (null x) nil (f (phead x) :: map'' f (tail x));
+--   if (isEmpty x) nil (f (phead x) :: map'' f (tail x));
 
 lst : List Nat := 0 :: 1 :: nil;
 
 main : List Nat :=
-  trace (null lst)
-    >-> trace (null (nil {Nat}))
+  trace (isEmpty lst)
+    >-> trace (isEmpty (nil {Nat}))
     >-> trace (head 1 lst)
     >-> trace (tail lst)
     >-> trace (head 0 (tail lst))

diff --git a/tests/Casm/Compilation/positive/test007.juvix b/tests/Casm/Compilation/positive/test007.juvix
@@ -12,8 +12,8 @@ map' {A B} (f : A → B) : List A → List B :=
 lst : List Nat := 0 :: 1 :: nil;
 
 main : Nat :=
-  ite (null lst) 1 0
-    + ite (null (nil {Nat})) 1 0
+  ite (isEmpty lst) 1 0
+    + ite (isEmpty (nil {Nat})) 1 0
     + head 1 lst
     + head 0 (tail lst)
     + head 0 (tail (map ((+) 1) lst))

diff --git a/tests/Compilation/positive/test007.juvix b/tests/Compilation/positive/test007.juvix
@@ -11,7 +11,7 @@ map' {A B} (f : A → B) : List A → List B :=
 
 terminating
 map'' {A B} {{Partial}} (f : A → B) (x : List A) : List B :=
-  ite (null x) nil (f (phead x) :: map'' f (tail x));
+  ite (isEmpty x) nil (f (phead x) :: map'' f (tail x));
 
 lst : List Nat := 0 :: 1 :: nil;
 
@@ -24,8 +24,8 @@ printNatListLn (lst : List Nat) : IO :=
   printNatList lst >>> printString "\n";
 
 main : IO :=
-  printBoolLn (null lst)
-    >>> printBoolLn (null (nil {Nat}))
+  printBoolLn (isEmpty lst)
+    >>> printBoolLn (isEmpty (nil {Nat}))
     >>> printNatLn (head 1 lst)
     >>> printNatListLn (tail lst)
     >>> printNatLn (head 0 (tail lst))

diff --git a/tests/Rust/Compilation/positive/test007.juvix b/tests/Rust/Compilation/positive/test007.juvix
@@ -12,8 +12,8 @@ map' {A B} (f : A → B) : List A → List B :=
 lst : List Nat := 0 :: 1 :: nil;
 
 main : Nat :=
-  ite (null lst) 1 0
-    + ite (null (nil {Nat})) 1 0
+  ite (isEmpty lst) 1 0
+    + ite (isEmpty (nil {Nat})) 1 0
     + head 1 lst
     + head 0 (tail lst)
     + head 0 (tail (map ((+) 1) lst))

diff --git a/tests/smoke/Commands/dev/repl.smoke.yaml b/tests/smoke/Commands/dev/repl.smoke.yaml
@@ -68,14 +68,14 @@ tests:
           Stdlib.Prelude> \1
     exit-status: 0
 
-  - name: check-type-null
+  - name: check-type-isEmpty
     command:
       - juvix
       - dev
       - repl
     stdout:
       contains: "{A : Type} -> (list : List A) -> Bool"
-    stdin: ":type null"
+    stdin: ":type isEmpty"
     exit-status: 0
 
   - name: check-type-suc

diff --git a/tests/smoke/Commands/repl.smoke.yaml b/tests/smoke/Commands/repl.smoke.yaml
@@ -151,13 +151,13 @@ tests:
           Stdlib.Prelude> \1
     exit-status: 0
 
-  - name: check-type-null
+  - name: check-type-isEmpty
     command:
       - juvix
       - repl
     stdout:
       contains: "{A : Type} -> (list : List A) -> Bool"
-    stdin: ":type null"
+    stdin: ":type isEmpty"
     exit-status: 0
 
   - name: check-type-suc
+4 −1		Stdlib/Data/List.juvix
+1 −1		Stdlib/Data/List/Base.juvix
+150 −20		Stdlib/Data/Map.juvix
+185 −99		Stdlib/Data/Set/AVL.juvix
+4 −4		test/Test.juvix
+27 −2		test/Test/AVL.juvix
+43 −7		test/Test/Map.juvix