picolisp

commit d58cfd7af3fefc3eca391db34bde859af7cb8349
parent 5ad9de49c952fd7b974209c78eb513790218b608
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  7 Mar 2011 12:45:39 +0100

Statement depending on the order of evaluation
Diffstat:
M
src/big.c
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/big.c b/src/big.c
@@ -1,4 +1,4 @@
-/* 23jan11abu
+/* 07mar11abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -499,7 +499,8 @@ any numToSym(any x, int scl, int sep, int ign) {
          break;
       n = 1;
    }
-   n = (ta - acc) * 9 + sprintf(b = buf, "%ld", *ta--);
+   n = (ta - acc) * 9;
+   n += sprintf(b = buf, "%ld", *ta--);
    if (sep < 0)
       return boxCnt(n + sign);
    i = -8,  Push(c1, x = box(0));