From 1c85f920f20eb3350a4d05b931935aa03e09c597 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sun, 3 Nov 2024 17:32:15 -0500 Subject: [PATCH] Update to reflect changes in Prelude --- binary_tree.ld | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/binary_tree.ld b/binary_tree.ld index d8e6ad7..7a67b61 100644 --- a/binary_tree.ld +++ b/binary_tree.ld @@ -3,18 +3,18 @@ box states = [] fn push! () -> { - update! (states, append (_, turtle_state ())) + update! (states, append (_, unbox (turtle_state))) } fn pop! () -> { let state = do states > unbox > last update! (states, butlast) penup! () - load_turtle_state! (state) + loadstate! (state) } fn branch! () -> { - pc! (colors :olive) + pc! (colors :green) pw! (4) fd! (20) }