summaryrefslogtreecommitdiff
path: root/libguile/gh_init.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-07 21:12:19 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-07 21:12:19 +0000
commite81d98ec2d12d9101dc79928833b2c064d148afc (patch)
treed5966566fc4c86bca904ea941bfc6a19cc464918 /libguile/gh_init.c
parent563058efbe03208cacb43f664c702e3979922cb6 (diff)
downloadguile-e81d98ec2d12d9101dc79928833b2c064d148afc.tar.gz
* Introduce SCM_UNUSED and mark unused function parameters.
* Introduce SCM_DEBUG_PAIR_ACCESSES. * Extend the possibilities of SCM_DEBUG_CELL_ACCESSES.
Diffstat (limited to 'libguile/gh_init.c')
-rw-r--r--libguile/gh_init.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/gh_init.c b/libguile/gh_init.c
index 5dbc7daad..62b684d29 100644
--- a/libguile/gh_init.c
+++ b/libguile/gh_init.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1995,1996,1997, 2000 Free Software Foundation, Inc.
-
+/* Copyright (C) 1995,1996,1997,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
* the Free Software Foundation; either version 2, or (at your option)
@@ -94,7 +94,7 @@ gh_catch (SCM tag, scm_catch_body_t body, void *body_data,
}
SCM
-gh_standard_handler (void *data, SCM tag, SCM throw_args)
+gh_standard_handler (void *data SCM_UNUSED, SCM tag, SCM throw_args SCM_UNUSED)
{
fprintf (stderr, "\nJust got an error; tag is\n ");
scm_display (tag, scm_current_output_port ());