picolisp

commit cdd88278d084289826390601deb88fbbf1577927
parent 3051687aef75ec68032c688d4b5b64e94cb351ca
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 18 Oct 2011 08:00:57 +0200

'*Prompt' should hold a 'prg' body
Diffstat:
M
src/io.c
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/io.c b/src/io.c
@@ -1,4 +1,4 @@
-/* 11oct11abu
+/* 18oct11abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -2044,7 +2044,7 @@ any load(any ex, int pr, any x) {
          data(c1) = read1(0);
       else {
          if (pr && !Chr)
-            prin(EVAL(val(Prompt))), Env.put(pr), space(), flushAll();
+            prin(run(val(Prompt))), Env.put(pr), space(), flushAll();
          data(c1) = read1(isatty(STDIN_FILENO)? '\n' : 0);
          if (Chr == '\n')
             Chr = 0;