twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Fix subtle parsing errors in prelude.

Browse Source
This commit is contained in:
Scott Richmond 2023-12-08 15:04:44 -05:00
parent c88a06d447
commit f5f1d4a440
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ludus/prelude.ld
View File

@ -107,7 +107,7 @@ fn empty? {
"Returns true if something is empty. Otherwise returns false (including for things that can't logically be empty, like numbers)." "Returns true if something is empty. Otherwise returns false (including for things that can't logically be empty, like numbers)."
([]) -> true ([]) -> true
(#{}) -> true (#{}) -> true
(${}) -> true (s as :set) -> eq (s, ${})
(()) -> true (()) -> true
("") -> true ("") -> true
(_) -> false (_) -> false
@ -169,7 +169,7 @@ fn concat {
(x as :string, y as :string) -> base :str (x, y) (x as :string, y as :string) -> base :str (x, y)
(xs as :list, ys as :list) -> base :concat (xs, ys) (xs as :list, ys as :list) -> base :concat (xs, ys)
(xs as :set, ys as :set) -> base :concat (xs, ys) (xs as :set, ys as :set) -> base :concat (xs, ys)
(xs, ys, ...zs) -> fold (concat, zs, concat(xs, ys)) (xs, ys, ...zs) -> fold (concat, zs, concat (xs, ys))
} }
& the console: sending messages to the outside world & the console: sending messages to the outside world
@ -188,7 +188,7 @@ fn flush! {
fn add_msg! { fn add_msg! {
"Adds a message to the console." "Adds a message to the console."
(msg as :string) -> update! (console, append, (_, msg)) (msg as :string) -> update! (console, append (_, msg))
(msgs as :list) -> { (msgs as :list) -> {
let msg = do msgs > map (string, _) > join let msg = do msgs > map (string, _) > join
update! (console, append (_, msg)) update! (console, append (_, msg))