diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-29 15:54:58 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-29 15:54:58 +0000 |
commit | 2500356c67755723d802538e8938b30019f64163 (patch) | |
tree | 88612ddc34756abfcbdb4c3aec1f44538411fccb /libguile/srcprop.c | |
parent | 9b166f1273d16da2590720d3a57c2d17f97f2218 (diff) | |
download | guile-2500356c67755723d802538e8938b30019f64163.tar.gz |
* Cleaned up memory error signalling.
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c index f3aebe800..7f2271df7 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -132,7 +132,8 @@ scm_make_srcprops (int line, int col, SCM filename, SCM copy, SCM plist) scm_sizet n = sizeof (scm_srcprops_chunk) + sizeof (scm_srcprops) * (SRCPROPS_CHUNKSIZE - 1); SCM_SYSCALL (mem = (scm_srcprops_chunk *) malloc (n)); - SCM_ASSERT (mem, SCM_UNDEFINED, SCM_NALLOC, "srcprops"); + if (mem == NULL) + scm_memory_error ("srcprops"); scm_mallocated += n; mem->next = srcprops_chunklist; srcprops_chunklist = mem; |