mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 02:00:26 +02:00
Code Activity

* Incorporated fixes to interrupt deferring/allowing from Niibe.

Browse source 
* Added SCM_DEBUG_INTERRUPTS as a debugging option.
This commit is contained in:
Dirk Herrmann 2001-04-17 09:15:39 +00:00
parent ac16426b15
commit 216eedfcae
7 changed files with 91 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/mallocs.c
View file

@ -1,5 +1,5 @@
/* classes: src_files
* Copyright (C) 1995, 1997, 1998, 2000 Free Software Foundation, Inc.
* Copyright (C) 1995,1997,1998,2000,2001 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -64,10 +64,7 @@ scm_malloc_obj (scm_sizet n)
{
scm_bits_t mem = n ? (scm_bits_t) malloc (n) : 0;
if (n && !mem)
{
SCM_ALLOW_INTS;
return SCM_BOOL_F;
}
return SCM_BOOL_F;
SCM_RETURN_NEWSMOB (scm_tc16_malloc, mem);
}