summaryrefslogtreecommitdiff
path: root/libguile/pairs.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-08 10:02:33 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-08 10:02:33 +0000
commitbab246f3345d6fa97ccd698ad66ada18abede481 (patch)
treed1cee66aa51371cba73f55baa86ebc7ce2025175 /libguile/pairs.c
parentdcb410ec079dcb20e6589461803fa99e3a3d8dd7 (diff)
downloadguile-bab246f3345d6fa97ccd698ad66ada18abede481.tar.gz
* Fixed some bugs, some reported by Matthias Koeppe.
Diffstat (limited to 'libguile/pairs.c')
-rw-r--r--libguile/pairs.c11
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