mirror of
https://github.com/urbit/shrub.git
synced 2025-01-07 13:37:36 +03:00
29 lines
429 B
Plaintext
29 lines
429 B
Plaintext
/- neo
|
|
^- firm:neo
|
|
|%
|
|
+$ poke ?
|
|
+$ state ?
|
|
++ deps *deps:neo
|
|
++ kids *kids:neo
|
|
++ form
|
|
^- form:neo
|
|
|_ [=bowl:neo raw-sta=* *]
|
|
++ call
|
|
|= ^ *(list card:neo)
|
|
++ reduce
|
|
|= raw-val=*
|
|
=+ ;;(val=? raw-val)
|
|
val
|
|
++ take
|
|
|= =sign:neo
|
|
*(list card:neo)
|
|
++ born *(list card:neo)
|
|
++ init
|
|
|= old=(unit *)
|
|
&
|
|
++ echo
|
|
|= [=pith val=*]
|
|
*(list card:neo)
|
|
--
|
|
--
|