diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-02-02 04:56:25 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-02-02 04:56:25 +0000 |
commit | 00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8 (patch) | |
tree | d779edbe115e20363242e8cacec89ae6e596560b /libguile/posix.c | |
parent | b8446ce883e7155def42f479a39b6a870b318720 (diff) | |
download | guile-00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8.tar.gz |
New functions: scm_c_make_vector, scm_c_make_hash_table.
Diffstat (limited to 'libguile/posix.c')
-rw-r--r-- | libguile/posix.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/posix.c b/libguile/posix.c index b766cb4c1..c85ec6c28 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -217,7 +217,7 @@ SCM_DEFINE (scm_getgroups, "getgroups", 0, 0, 0, groups = scm_must_malloc (size, FUNC_NAME); getgroups (ngroups, groups); - ans = scm_make_vector (SCM_MAKINUM (ngroups), SCM_UNDEFINED); + ans = scm_c_make_vector (ngroups, SCM_UNDEFINED); while (--ngroups >= 0) SCM_VELTS (ans) [ngroups] = SCM_MAKINUM (groups [ngroups]); @@ -241,7 +241,7 @@ SCM_DEFINE (scm_getpwuid, "getpw", 0, 1, 0, struct passwd *entry; SCM *ve; - result = scm_make_vector (SCM_MAKINUM (7), SCM_UNSPECIFIED); + result = scm_c_make_vector (7, SCM_UNSPECIFIED); ve = SCM_VELTS (result); if (SCM_UNBNDP (user) || SCM_FALSEP (user)) { @@ -312,7 +312,7 @@ SCM_DEFINE (scm_getgrgid, "getgr", 0, 1, 0, SCM result; struct group *entry; SCM *ve; - result = scm_make_vector (SCM_MAKINUM (4), SCM_UNSPECIFIED); + result = scm_c_make_vector (4, SCM_UNSPECIFIED); ve = SCM_VELTS (result); if (SCM_UNBNDP (name) || SCM_FALSEP (name)) { @@ -952,7 +952,7 @@ SCM_DEFINE (scm_uname, "uname", 0, 0, 0, #define FUNC_NAME s_scm_uname { struct utsname buf; - SCM ans = scm_make_vector (SCM_MAKINUM(5), SCM_UNSPECIFIED); + SCM ans = scm_c_make_vector (5, SCM_UNSPECIFIED); SCM *ve = SCM_VELTS (ans); if (uname (&buf) < 0) SCM_SYSERROR; |