diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-08 10:02:33 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-08 10:02:33 +0000 |
commit | bab246f3345d6fa97ccd698ad66ada18abede481 (patch) | |
tree | d1cee66aa51371cba73f55baa86ebc7ce2025175 /libguile/pairs.c | |
parent | dcb410ec079dcb20e6589461803fa99e3a3d8dd7 (diff) | |
download | guile-bab246f3345d6fa97ccd698ad66ada18abede481.tar.gz |
* Fixed some bugs, some reported by Matthias Koeppe.
Diffstat (limited to 'libguile/pairs.c')
-rw-r--r-- | libguile/pairs.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/libguile/pairs.c b/libguile/pairs.c index 48db366b3..24d1aec07 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -61,9 +61,16 @@ void scm_error_pair_access (SCM non_pair) { + static unsigned int running = 0; SCM message = scm_makfrom0str ("Non-pair accessed with SCM_C[AD]R: `~Sī\n"); - scm_simple_format (scm_current_error_port (), message, SCM_LIST1 (non_pair)); - abort (); + + if (!running) + { + running = 1; + scm_simple_format (scm_current_error_port (), + message, SCM_LIST1 (non_pair)); + abort (); + } } #endif |