update README.md

2024-10-17 02:13:26 -04:00
parent f651c62c5c
commit 6f5081568a
1 changed files with 12 additions and 14 deletions
--- a/README.md
+++ b/README.md
@@ -188,11 +188,9 @@ iterate ;x + 1 x 0 10  # => [0 1 2 3 4 5 6 7 8 9]
 take 3 [1 2 3 4 5]  # => [1 2 3]

 :. take'while : pred Any -> Bool ?. x [Any] -> [Any]
-  ?? bool x
-    ?? pred head x
+	?? && bool x pred head x
 		+ head x take'while 'pred tail x
 		empty
-    empty
 take'while ;y < y 10 [1 3 5 7 9 11 13 15 16]  # => [1 3 5 7 9]
 ```