picolisp

commit 71e19745e82a2f655f4ffdf1a240d1f764fe8a5a
parent 00535cc35b555152fe0014de52c932880cf7fb6e
Author: Commit-Bot <unknown>
Date:   Tue, 21 Sep 2010 18:50:43 +0000

Automatic commit from picoLisp.tgz, From: Tue, 21 Sep 2010 18:50:43 GMT
Diffstat:
M
ReleaseNotes
 | 
7
++++++-
M
src/io.c
 | 
11
++++++++---
M
src64/version.l
 | 
4
++--

3 files changed, 16 insertions(+), 6 deletions(-)
diff --git a/ReleaseNotes b/ReleaseNotes
@@ -1,4 +1,4 @@
-11aug10abu
+19sep10abu
 (c) Software Lab. Alexander Burger
 
 
@@ -42,3 +42,8 @@ D. HTTP file uploads can now be achieved with Drag & Drop, using the new '+Drop'
 
 E. The license was changed from GPL to the MIT/X11 License with this release
    (see the file "COPYING").
+
+F. The usage of the poll(2) system call in the 64-bit version was found to cause
+   errors. The database stress test in "misc/stress.l" occasionally indicated
+   inconsistencies (for unknown reasons). Therefore, the 64-bit version is now -
+   like the 32-bit version - based on select(2).
diff --git a/src/io.c b/src/io.c
@@ -1,4 +1,4 @@
-/* 14sep10abu
+/* 21sep10abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -2237,8 +2237,13 @@ static void outSym(int c) {
 void outName(any s) {outSym(symByte(name(s)));}
 
 void outNum(any x) {
-   if (isNum(cdr(numCell(x))))
-      outName(numToSym(x, 0, 0, 0));
+   if (isNum(cdr(numCell(x)))) {
+      cell c1;
+
+      Push(c1, numToSym(x, 0, 0, 0));
+      outName(data(c1));
+      drop(c1);
+   }
    else {
       char *p, buf[BITS/2];
 
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 17sep10abu
+# 21sep10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 3 22)
+(de *Version 3 0 3 23)
 
 # vi:et:ts=3:sw=3