mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Reintroduce 'SCM_MEMORY_ERROR' in terms of 'scm_report_out_of_memory'.

Browse source 
Suggested by Dale P. Smith <dsmich@roadrunner.com>.

* libguile/deprecated.h (SCM_MEMORY_ERROR): New macro.
* doc/ref/api-control.texi (Dynamic Wind): Use 'scm_report_out_of_memory'.
This commit is contained in:
Ludovic Courtès 2020-02-11 14:47:16 +01:00
parent 1a3e316c32
commit 41d470f0e9
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
doc/ref/api-control.texi
View file

@ -1669,7 +1669,7 @@ scm_foo (SCM s1, SCM s2)
c_res = foo (c_s1, c_s2); c_res = foo (c_s1, c_s2);
if (c_res == NULL) if (c_res == NULL)
scm_misc_error ("foo", "out of memory!", SCM_EOL); scm_report_out_of_memory ();
scm_dynwind_end (); scm_dynwind_end ();

4
libguile/deprecated.h
View file

@ -1,7 +1,7 @@
#ifndef SCM_DEPRECATED_H #ifndef SCM_DEPRECATED_H
#define SCM_DEPRECATED_H #define SCM_DEPRECATED_H
/* Copyright 2003-2007,2009-2018 /* Copyright 2003-2007,2009-2018,2020
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of Guile. This file is part of Guile.
@ -111,6 +111,8 @@ typedef ptrdiff_t scm_t_ptrdiff SCM_DEPRECATED_TYPE;
typedef struct scm_thread scm_i_thread SCM_DEPRECATED_TYPE; typedef struct scm_thread scm_i_thread SCM_DEPRECATED_TYPE;
#undef SCM_DEPRECATED_TYPE #undef SCM_DEPRECATED_TYPE
#define SCM_MEMORY_ERROR do { scm_report_out_of_memory (); } while (0)
SCM_DEPRECATED char* scm_find_executable (const char *name); SCM_DEPRECATED char* scm_find_executable (const char *name);
void scm_i_init_deprecated (void); void scm_i_init_deprecated (void);