summaryrefslogtreecommitdiff
path: root/libguile/vm.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@oblong.net>2010-01-14 13:55:50 +0100
committerAndy Wingo <wingo@oblong.net>2010-01-14 13:55:50 +0100
commit7055591c2e9ba97b9a5d1c15a3b7e1ce409966f5 (patch)
tree4c7754800cf76f9a6a338360baa0aa56a1a9bca6 /libguile/vm.c
parentf207859b0be606ea77d488262e2b8d114c9ae370 (diff)
downloadguile-7055591c2e9ba97b9a5d1c15a3b7e1ce409966f5.tar.gz
vm.c uses scm_c_take_bytevector instead of scm_take_u8vector
* libguile/vm.c (really_make_boot_program): Use scm_c_take_bytevector to avoid loading srfi-4 at boot time.
Diffstat (limited to 'libguile/vm.c')
-rw-r--r--libguile/vm.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index d6205f8b5..afa888e52 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -205,8 +205,8 @@ really_make_boot_program (long nargs)
bp->len = sizeof(text);
bp->metalen = 0;
- u8vec = scm_take_u8vector ((scm_t_uint8*)bp,
- sizeof (struct scm_objcode) + sizeof (text));
+ u8vec = scm_c_take_bytevector ((scm_t_int8*)bp,
+ sizeof (struct scm_objcode) + sizeof (text));
ret = scm_make_program (scm_bytecode_to_objcode (u8vec),
SCM_BOOL_F, SCM_BOOL_F);
SCM_SET_CELL_WORD_0 (ret, SCM_CELL_WORD_0 (ret) | SCM_F_PROGRAM_IS_BOOT);