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

(scm_iprin1): Print primitives generics always as "primitive-generic"

Browse source 
even when they have no primitive methods yet.
This commit is contained in:
Marius Vollmer 2002-08-19 23:22:42 +00:00
parent d900cd6dd4
commit f76af603e1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/print.c
View file

@ -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);