Fix additional bugs in the prelude
This commit is contained in:
parent
f5f1d4a440
commit
b285047d60
|
@ -262,7 +262,7 @@ fn string {
|
||||||
fn join {
|
fn join {
|
||||||
"Takes a list of strings, and joins them into a single string, interposing an optional separator."
|
"Takes a list of strings, and joins them into a single string, interposing an optional separator."
|
||||||
([]) -> ""
|
([]) -> ""
|
||||||
([str as :string]) -> s
|
([str as :string]) -> str
|
||||||
(strs as :list) -> join (strs, "")
|
(strs as :list) -> join (strs, "")
|
||||||
(strs, separator as :string) -> fold (
|
(strs, separator as :string) -> fold (
|
||||||
fn (joined, to_join) -> concat (joined, separator, to_join)
|
fn (joined, to_join) -> concat (joined, separator, to_join)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user