summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-08-19 23:22:42 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-08-19 23:22:42 +0000
commitf76af603e1a216f2eada17be467ee5d11fd5fb86 (patch)
treea4a137baecb0b0d47ebdc6de2997f6972f1d0e15
parentd900cd6dd406158c459bc133a20105ae16fe5064 (diff)
downloadguile-f76af603e1a216f2eada17be467ee5d11fd5fb86.tar.gz
(scm_iprin1): Print primitives generics always as "primitive-generic"
even when they have no primitive methods yet.
-rw-r--r--libguile/print.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c
index a5e0fc818..cf1ba134d 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995-1999,2000,2001 Free Software Foundation, Inc.
+/* Copyright (C) 1995-1999,2000,2001, 2002 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
@@ -601,7 +601,7 @@ scm_iprin1 (SCM exp, SCM port, scm_print_state *pstate)
break;
#endif
case scm_tcs_subrs:
- scm_puts (SCM_SUBR_GENERIC (exp) && *SCM_SUBR_GENERIC (exp)
+ scm_puts (SCM_SUBR_GENERIC (exp)
? "#<primitive-generic "
: "#<primitive-procedure ",
port);