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

* print.c (scm_iprin1): Removed suspect looking (and indeed

Browse source 
malevolent) semicolon after test for user supplied closure print
procedure.  (Thanks to Telford Tendys.)
This commit is contained in:
Mikael Djurfeldt 1998-11-03 16:09:29 +00:00
parent 263a691f04
commit 77c25af7d1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/print.c
View file

@ -379,7 +379,7 @@ taloop:
macro closures as well. */ macro closures as well. */
if (SCM_FALSEP (scm_procedure_p (SCM_PRINT_CLOSURE)) if (SCM_FALSEP (scm_procedure_p (SCM_PRINT_CLOSURE))
|| SCM_FALSEP (scm_printer_apply (SCM_PRINT_CLOSURE, || SCM_FALSEP (scm_printer_apply (SCM_PRINT_CLOSURE,
exp, port, pstate))); exp, port, pstate)))
{ {
SCM name, code, env; SCM name, code, env;
if (SCM_TYP16 (exp) == scm_tc16_macro) if (SCM_TYP16 (exp) == scm_tc16_macro)