neo: small fixes

This commit is contained in:
Liam Fitzgerald 2024-04-14 14:25:49 -04:00
parent e34389a7b8
commit 6f4cb9d824
2 changed files with 9 additions and 13 deletions

View File

@ -21,14 +21,13 @@
^- ever:neo ^- ever:neo
[+(-.ever) +(+.ever)] [+(-.ever) +(+.ever)]
:: ::
++ trace-card-gall ++ trace-card-gall
|= =card |= =card
^- tank ^- tank
?: ?=(%give -.card) ?: ?=(%give -.card)
leaf/"give" leaf/"give"
?> ?=(%pass -.card) ?> ?=(%pass -.card)
leaf/"%pass {(spud p.card)}" leaf/"%pass {(spud p.card)}"
:: ::
++ sole ++ sole
|% |%
@ -268,8 +267,7 @@
?: is-our (cane:h care) ?: is-our (cane:h care)
(cane:j care) (cane:j care)
-- --
::
++ jail ++ jail
|_ =name:neo |_ =name:neo
++ pith `pith:neo`(en-pith:name:neo name) ++ pith `pith:neo`(en-pith:name:neo name)
@ -461,7 +459,7 @@
[~ ~] :: XX: todo [~ ~] :: XX: todo
?: ?=([%see *] pith.name) ?: ?=([%see *] pith.name)
(peek:see t.pith.name) (peek:see t.pith.name)
=/ res (~(cane jail name) care) =/ res (~(cane dorm name) care)
?+ as [~ ~] ?+ as [~ ~]
%noun ``neo-cane+!>(res) %noun ``neo-cane+!>(res)
%json %json

View File

@ -58,8 +58,6 @@
%custom :_(sta (add-msg bowl [stud vase]:poke)^~) %custom :_(sta (add-msg bowl [stud vase]:poke)^~)
== ==
%- (slog leaf/"debug" (turn ~(val by kids.bowl) |=(p=pail:neo (sell q.p)))) %- (slog leaf/"debug" (turn ~(val by kids.bowl) |=(p=pail:neo (sell q.p))))
~& foo/foo:thing
~& bar/bar:thing
[cards !>(sta)] [cards !>(sta)]
++ init ++ init
|= old=(unit vase) |= old=(unit vase)