diff options
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; } |