Fixed error in %glyph lowdown construction and improved its handling.

This commit is contained in:
Fang 2017-03-30 23:56:48 +02:00
parent fdc36b3688
commit 6c20c8d0fe
2 changed files with 5 additions and 5 deletions

View File

@ -154,6 +154,8 @@
:: ::
|= nek/_nak |= nek/_nak
^+ +> ^+ +>
?: =(nek nak)
+>
=. nak nek =. nak nek
=. nik %- ~(gas by *(map (set partner) char)) =. nik %- ~(gas by *(map (set partner) char))
=- (zing `(list (list {(set partner) char}))`-) =- (zing `(list (list {(set partner) char}))`-)

View File

@ -279,11 +279,9 @@
(strap her ?~(hand.q.dup ~ `q.dup)) (strap her ?~(hand.q.dup ~ `q.dup))
:: ::
$bind ::x set glyph binding. $bind ::x set glyph binding.
%. [%glyph nak] =. nik (~(put by nik) q.dup p.dup)
%= ra-inform =. nak (~(put ju nak) p.dup q.dup)
nik (~(put by nik) q.dup p.dup) (ra-inform %glyph nak)
nak (~(put ju nak) p.dup q.dup)
==
== ==
:: ::
++ ra-config :: configure story ++ ra-config :: configure story