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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-04 03:30:03 -0800 (Sun, 04 Dec 2005)
New Revision: 2349

Modified:
   branches/r5rs/sigscheme/read.c
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (SCM_QUEUE_TERMINATE): Removed since SCM_QUEUE_SLOPPY_APPEND() is
    sufficient in most cases
* sigscheme/read.c
  - (read_list): Replace SCM_QUEUE_TERMINATE() with
    SCM_QUEUE_SLOPPY_APPEND()


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-12-04 11:26:50 UTC (rev 2348)
+++ branches/r5rs/sigscheme/read.c	2005-12-04 11:30:03 UTC (rev 2349)
@@ -369,7 +369,7 @@
                 if (c != ')')
                     ERR("bad dot syntax");
 
-                SCM_QUEUE_TERMINATE(q, cdr);
+                SCM_QUEUE_SLOPPY_APPEND(q, cdr);
                 return lst;
             } else if (strcmp(dot_buf, "...") == 0) {
                 elm = Scm_Intern(dot_buf);

Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-12-04 11:26:50 UTC (rev 2348)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-12-04 11:30:03 UTC (rev 2349)
@@ -334,8 +334,6 @@
         while (CONSP(DEREF(_q)))                \
             (_q) = REF_CDR(DEREF(_q));          \
     } while (/* CONSTCOND */ 0)
-#define SCM_QUEUE_TERMINATE(_q, _cdr) (SET((_q), _cdr),                      \
-                                       SCM_QUEUE_INVALIDATE(_q))
 #define SCM_QUEUE_TERMINATOR(_q)          (DEREF(_q))
 #define SCM_QUEUE_SLOPPY_APPEND(_q, _lst) (DEREF(_q) = (_lst))