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

Remove print!s

Browse Source
This commit is contained in:
Scott Richmond 2023-12-04 14:01:32 -05:00
parent 6a1906c1ae
commit ba44ddcb3f
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ludus/prelude.ld
View File

@ -717,9 +717,7 @@ let turtle_angle = 0.375
let turtle_color = (100, 100, 100, 100) let turtle_color = (100, 100, 100, 100)
fn render_turtle! () -> { fn render_turtle! () -> {
print! ("Rendering turtle")
let state = do turtle_states > deref > last let state = do turtle_states > deref > last
print! ("Collected state.")
if state :visible? if state :visible?
then { then {
add_call! ((:push)) add_call! ((:push))
@ -750,7 +748,6 @@ fn state/call () -> {
let states = deref (turtle_states) let states = deref (turtle_states)
let curr = last (states) let curr = last (states)
let prev = nth (states, sub (count (states), 2)) let prev = nth (states, sub (count (states), 2))
& print! ("Curr, prev, command", curr, prev, cmd)
match cmd with { match cmd with {
:forward -> if curr :pendown? :forward -> if curr :pendown?
then make_line (prev :position, curr :position) then make_line (prev :position, curr :position)