twc/ludus
5
0
Fork 0
Code Issues 35 Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Merge branch 'main' into release

Browse Source
This commit is contained in:
Scott Richmond 2025-07-10 17:15:14 -04:00
commit 447874cf8e
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
assets/prelude.ld
View File

@ -1416,6 +1416,7 @@ fn turtle_listener () -> {
(:position, pid) -> send! (pid, (:reply, do turtle_states > unbox > self () > :position))
(:penwidth, pid) -> send! (pid, (:reply, do turtle_states > unbox > self () > :penwidth))
(:heading, pid) -> send! (pid, (:reply, do turtle_states > unbox > self () > :heading))
(:state, pid) -> send! (pid, (:reply, do turtle_states > unbox > self ()))
does_not_understand -> {
let pid = self ()
panic! "{pid} does not understand message: {does_not_understand}"
@ -1495,6 +1496,10 @@ fn penwidth {
() -> do turtle_states > unbox > :turtle_0 > :penwidth
}
fn savestate {
"Returns the turtle's state."
() -> do turtle_states > unbox > :turtle_0
}
&&& fake some lispisms with tuples
fn cons {

BIN
pkg/rudus_bg.wasm (Stored with Git LFS)
View File

Binary file not shown.

3
src/base.rs
View File

@ -470,8 +470,7 @@ pub fn r#type(x: &Value) -> Value {
pub fn split(source: &Value, splitter: &Value) -> Value {
match (source, splitter) {
(Value::String(source), Value::String(splitter)) => {
println!("splitting {source} with {splitter}");
let parts = source.split_terminator(splitter.as_str());
let parts = source.split(splitter.as_str());
let mut list = vector![];
for part in parts {
list.push_back(Value::String(Rc::new(part.to_string())));