diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-08 00:46:41 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-08 00:55:06 +0100 |
commit | f209aeee9fc5032863cc07138be927da87d3a091 (patch) | |
tree | e8c4e1e701bc9081d5119613e1cf2a338daba601 /libguile/objcodes.c | |
parent | 0607ebbfcf63dc81e4bc2b10f3a8c3bc0d348c09 (diff) | |
download | guile-f209aeee9fc5032863cc07138be927da87d3a091.tar.gz |
locking for write, lfwrite
* libguile/ports.c (scm_c_write_unlocked, scm_c_write)
(scm_lfwrite_unlocked, scm_lfwrite): Add locking and _unlocked
variants. Change uses to _unlocked.
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r-- | libguile/objcodes.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c index 77765d948..27ea111a6 100644 --- a/libguile/objcodes.c +++ b/libguile/objcodes.c @@ -355,9 +355,10 @@ SCM_DEFINE (scm_write_objcode, "write-objcode", 2, 0, 0, cookie[SCM_OBJCODE_ENDIANNESS_OFFSET] = endianness; cookie[SCM_OBJCODE_WORD_SIZE_OFFSET] = word_size; - scm_c_write (port, cookie, strlen (SCM_OBJCODE_COOKIE)); - scm_c_write (port, SCM_OBJCODE_DATA (objcode), - sizeof (struct scm_objcode) + SCM_OBJCODE_TOTAL_LEN (objcode)); + scm_c_write_unlocked (port, cookie, strlen (SCM_OBJCODE_COOKIE)); + scm_c_write_unlocked (port, SCM_OBJCODE_DATA (objcode), + sizeof (struct scm_objcode) + + SCM_OBJCODE_TOTAL_LEN (objcode)); return SCM_UNSPECIFIED; } |