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/print.c | |
| parent | b8446ce883e7155def42f479a39b6a870b318720 (diff) | |
| download | guile-00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8.tar.gz | |
New functions: scm_c_make_vector, scm_c_make_hash_table.
Diffstat (limited to 'libguile/print.c')
| -rw-r--r-- | libguile/print.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/print.c b/libguile/print.c index 0dc7b82ff..c7fa4b157 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -212,8 +212,7 @@ make_print_state (void) SCM_INUM0, SCM_EOL); scm_print_state *pstate = SCM_PRINT_STATE (print_state); - pstate->ref_vect = scm_make_vector (SCM_MAKINUM (PSTATE_SIZE), - SCM_UNDEFINED); + pstate->ref_vect = scm_c_make_vector (PSTATE_SIZE, SCM_UNDEFINED); pstate->ref_stack = SCM_VELTS (pstate->ref_vect); pstate->ceiling = SCM_VECTOR_LENGTH (pstate->ref_vect); return print_state; @@ -262,7 +261,7 @@ grow_ref_stack (scm_print_state *pstate) unsigned long int old_size = SCM_VECTOR_LENGTH (pstate->ref_vect); SCM *old_elts = SCM_VELTS (pstate->ref_vect); unsigned long int new_size = 2 * pstate->ceiling; - SCM new_vect = scm_make_vector (SCM_MAKINUM (new_size), SCM_UNDEFINED); + SCM new_vect = scm_c_make_vector (new_size, SCM_UNDEFINED); SCM *new_elts = SCM_VELTS (new_vect); unsigned long int i; |