mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

`find-index` now takes optional default.

This commit is contained in:
Calvin Rose 2021-01-03 09:32:59 -06:00
parent 62f783f1dc
commit 6b268c5df4
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
CHANGELOG.md
View File

@ -2,12 +2,15 @@
All notable changes to this project will be documented in this file. All notable changes to this project will be documented in this file.
## Unreleased - ??? ## Unreleased - ???
- Add `dflt` argument to find-index.
- Add `:all` keyword to `ev/read` and `net/read` to make them more like `file/read`. However, we - Add `:all` keyword to `ev/read` and `net/read` to make them more like `file/read`. However, we
do not provide any `:line` option as that requires buffering. do not provide any `:line` option as that requires buffering.
- Change repl behavior to make Ctrl-C raise SIGINT on posix. The old behavior for Ctrl-C, - Change repl behavior to make Ctrl-C raise SIGINT on posix. The old behavior for Ctrl-C,
to clear the current line buffer, has been moved to Ctrl-Q. to clear the current line buffer, has been moved to Ctrl-Q.
- Importing modules that start with `/` is now the only way to import from project root. - Importing modules that start with `/` is now the only way to import from project root.
Before, this would import from / on disk. Before, this would import from / on disk. Previous imports that did not start with `.` or `/`
are now unambiguously importing from the syspath, instead of checking both the syspath and
the project root. This is backwards incompatible and dependencies should be updated for this.
- Change hash function for numbers. - Change hash function for numbers.
- Improve error handling of `dofile`. - Improve error handling of `dofile`.

6
src/boot/boot.janet
View File

@ -1026,10 +1026,10 @@
(error "expected 1 to 3 arguments to range"))) (error "expected 1 to 3 arguments to range")))
(defn find-index (defn find-index
`Find the index of indexed type for which pred is true. Returns nil if not found.` `Find the index of indexed type for which pred is true. Returns dflt if not found.`
[pred ind] [pred ind &opt dflt]
(var k nil) (var k nil)
(var ret nil) (var ret dflt)
(while true (while true
(set k (next ind k)) (set k (next ind k))
(if (= k nil) (break)) (if (= k nil) (break))