assets/prelude.ld

@@ -1250,6 +1250,8 @@ fn add_command! (turtle_id, command) -> {
 	update! (command_id, inc)
 	update! (turtle_commands, append (_, (turtle_id, idx, command)))
 	let prev = do turtle_states > unbox > turtle_id
+	print!("previous state: {turtle_id}", prev)
+	print!("applying command", command)
 	let curr = apply_command (prev, command)
 	update! (turtle_states, assoc (_, turtle_id, curr))
 	:ok