diff options
Diffstat (limited to 'libguile-ssh/channel-type.h')
| -rw-r--r-- | libguile-ssh/channel-type.h | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/libguile-ssh/channel-type.h b/libguile-ssh/channel-type.h index 2584dde..6a29fed 100644 --- a/libguile-ssh/channel-type.h +++ b/libguile-ssh/channel-type.h @@ -42,6 +42,8 @@ struct channel_data { } while (0) /* Make sure that the channel SCM is open. */ +#if USING_GUILE_BEFORE_2_2 + #define GSSH_VALIDATE_OPEN_CHANNEL(scm, pos, fn) \ do { \ if (! SCM_PTAB_ENTRY (channel)) \ @@ -49,6 +51,15 @@ struct channel_data { SCM_ASSERT_TYPE (SCM_OPPORTP (scm), scm, pos, fn, "open channel"); \ } while (0) +#else + +#define GSSH_VALIDATE_OPEN_CHANNEL(scm, pos, fn) \ + do { \ + SCM_ASSERT_TYPE (SCM_OPPORTP (scm), scm, pos, fn, "open channel"); \ + } while (0) + +#endif /* USING_GUILE_BEFORE_2_2 */ + /* API */ |