Change talk prompt.

This commit is contained in:
C. Guy Yarvin 2015-05-18 21:31:30 -07:00
parent 7331650ae2
commit 9110f4cc3e

View File

@ -237,8 +237,8 @@
^- tape ^- tape
=+ ^= rew ^- (pair (pair ,@t ,@t) (set partner)) =+ ^= rew ^- (pair (pair ,@t ,@t) (set partner))
?~ active.she ?~ active.she
[['(' ')'] passive.she] [[')' '('] passive.she]
[['[' ']'] u.active.she] [[']' '['] u.active.she]
=+ por=~(te-prom te man.she q.rew) =+ por=~(te-prom te man.she q.rew)
(weld `tape`[p.p.rew por] `tape`[q.p.rew ' ' ~]) (weld `tape`[p.p.rew por] `tape`[q.p.rew ' ' ~])
:: ::