Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit ebf199fb ebf199fb6d603c14605ed8f1ac7c03933528d601 by Sergey Poznyakoff
Options

handle #f when printing mailbox object

1 parent 49f791dd
Inline Side-by-side
Showing 1 changed file with 8 additions and 0 deletions
...@@ -58,6 +58,13 @@ mu_scm_mailbox_print (SCM mailbox_smob, SCM port, scm_print_state * pstate) ...@@ -58,6 +58,13 @@ mu_scm_mailbox_print (SCM mailbox_smob, SCM port, scm_print_state * pstate)
58 58
59 scm_puts ("#<mailbox ", port); 59 scm_puts ("#<mailbox ", port);
60 60
61 if (mailbox_smob == SCM_BOOL_F)
62 {
63 /* mu_mailbox.* functions may return #f */
64 scm_puts ("#f", port);
65 }
66 else
67 {
61 p = url_to_string (url); 68 p = url_to_string (url);
62 if (p) 69 if (p)
63 { 70 {
...@@ -70,6 +77,7 @@ mu_scm_mailbox_print (SCM mailbox_smob, SCM port, scm_print_state * pstate) ...@@ -70,6 +77,7 @@ mu_scm_mailbox_print (SCM mailbox_smob, SCM port, scm_print_state * pstate)
70 } 77 }
71 else 78 else
72 scm_puts ("uninitialized", port); 79 scm_puts ("uninitialized", port);
80 }
73 scm_puts (">", port); 81 scm_puts (">", port);
74 82
75 return 1; 83 return 1;
......