From ef2a08540a8b5c8dc96f4b249e50ffff831b8d78 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Thu, 15 Apr 2004 14:04:45 +0000
Subject: [PATCH] added conditions

---
 scheme/interfaces.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm
index b2de148..ec064c2 100644
--- a/scheme/interfaces.scm
+++ b/scheme/interfaces.scm
@@ -1,6 +1,7 @@
 (define-interface ldap-interface
   (export
    ldap-init
+   current-ldap-session
    with-ldap-session
    ldap-simple-bind
    ldap-simple-bind-anonymous
@@ -204,7 +205,13 @@
    &ldap-connect-error ldap-connect-error?
    &ldap-not-supported ldap-not-supported?
    &ldap-control-not-found ldap-control-not-found?
-   &ldap-referral-limit-exceeded ldap-referral-limit-exceeded?))
+   &ldap-referral-limit-exceeded ldap-referral-limit-exceeded?
+
+   &ldap-filter-wrong-type ldap-filter-wrong-type?
+   ldap-filter-wrong-type-expected ldap-filter-wrong-type-value
+
+   &ldap-filter-internal-error ldap-filter-internal-error?
+   ldap-filter-internal-error-what))
 
 (define-interface value-weak-table-interface
   (export