mirror of
https://github.com/urbit/shrub.git
synced 2024-12-11 11:02:25 +03:00
31 lines
487 B
Plaintext
31 lines
487 B
Plaintext
/- neo
|
|
=>
|
|
|%
|
|
++ card card:neo
|
|
--
|
|
^- firm:neo
|
|
|%
|
|
++ state %term
|
|
++ poke (sy %term ~)
|
|
++ kids ~
|
|
++ deps ~
|
|
++ form
|
|
^- form:neo
|
|
|_ [=bowl:neo =ever:neo state-vase=vase *]
|
|
+* sta !<(@tas state-vase)
|
|
++ poke
|
|
|= [=stud:neo vax=vase]
|
|
^- (quip card:neo vase)
|
|
?> =(stud %term)
|
|
=+ !<(=term vax)
|
|
`!>(term)
|
|
++ init
|
|
|= old=(unit vase)
|
|
^- (quip card:neo vase)
|
|
?~ old
|
|
`!>(*term)
|
|
=+ !<(=term u.old)
|
|
`!>(term)
|
|
--
|
|
--
|