[uim-commit] r1006 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-07-21 19:02:19 -0700 (Thu, 21 Jul 2005)
New Revision: 1006

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - (read_list): handle dot list correctly.


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-07-21 22:30:18 UTC (rev 1005)
+++ branches/r5rs/sigscheme/read.c	2005-07-22 02:02:19 UTC (rev 1006)
@@ -264,7 +264,7 @@
 		    SigScm_Error("bad dot syntax\n");
 
                 SCM_SETCDR(list_tail, cdr);
-		return list_tail;
+		return list_head;
             }
         } else {
             SCM_PORT_UNGETC(port, c);