commit 4822d6bdf946f17482900bacb4bd53110eb171f3 parent 153f9a6191c8a6e7d9745ad922254b11ff1b91cd Author: Alexander Burger <abu@software-lab.de> Date: Tue, 4 Oct 2011 15:33:14 +0200 'reply' accessible via global '*Boss' Diffstat:
| M | lib/boss.l | | | 14 | +++++++------- |
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lib/boss.l b/lib/boss.l @@ -1,16 +1,16 @@ -# 01jul10abu +# 04oct11abu # (c) Software Lab. Alexander Burger -# "tmp+" "tmp-" +# "boss" *Boss (unless (info (tmp "+")) - (call 'mkfifo (setq "tmp+" (tmp "+"))) - (call 'mkfifo (setq "tmp-" (tmp "-"))) ) -(hear (open "tmp+")) + (call 'mkfifo (setq "boss" (tmp "+"))) + (call 'mkfifo (setq *Boss (tmp "-"))) ) +(hear (open "boss")) # (boss 'sym ['any ..]) (de boss @ - (out "tmp+" (pr (rest))) ) + (out "boss" (pr (rest))) ) (de reply Exe #> any - (out "tmp-" (pr (eval Exe))) ) + (out *Boss (pr (eval Exe))) )