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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-04 08:18:33 -0800 (Wed, 04 Jan 2006)
New Revision: 2778

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (scm_p_make_vector): Fix SEGV on dot arg


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2006-01-04 15:42:32 UTC (rev 2777)
+++ branches/r5rs/sigscheme/operations.c	2006-01-04 16:18:33 UTC (rev 2778)
@@ -1562,7 +1562,7 @@
         ERR_OBJ("length must be a positive integer", scm_len);
 
     vec = scm_malloc(sizeof(ScmObj) * len);
-    filler = (!NULLP(args)) ? CAR(args) : SCM_UNDEF;
+    filler = (CONSP(args)) ? CAR(args) : SCM_UNDEF;
     for (i = 0; i < len; i++)
         vec[i] = filler;