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

View File

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