Update to reflect changes in Prelude
This commit is contained in:
parent
6c8c667042
commit
1c85f920f2
|
@ -3,18 +3,18 @@
|
||||||
box states = []
|
box states = []
|
||||||
|
|
||||||
fn push! () -> {
|
fn push! () -> {
|
||||||
update! (states, append (_, turtle_state ()))
|
update! (states, append (_, unbox (turtle_state)))
|
||||||
}
|
}
|
||||||
|
|
||||||
fn pop! () -> {
|
fn pop! () -> {
|
||||||
let state = do states > unbox > last
|
let state = do states > unbox > last
|
||||||
update! (states, butlast)
|
update! (states, butlast)
|
||||||
penup! ()
|
penup! ()
|
||||||
load_turtle_state! (state)
|
loadstate! (state)
|
||||||
}
|
}
|
||||||
|
|
||||||
fn branch! () -> {
|
fn branch! () -> {
|
||||||
pc! (colors :olive)
|
pc! (colors :green)
|
||||||
pw! (4)
|
pw! (4)
|
||||||
fd! (20)
|
fd! (20)
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user