string->obarray-symbol is deprecated in guile 1.6.0. Use another approach.

Sergey Poznyakoff
Commit de5a3840 ... de5a384088281b02ed827f8bf2ff4dcba7b81b2d authored 2002-09-10 12:05:39 +0000 by Sergey Poznyakoff
Showing 1 changed file with 5 additions and 1 deletions
guimb/scm/sieve.scm.in
--- a/guimb/scm/sieve.scm.in
View file @de5a384
+++ b/guimb/scm/sieve.scm.in
View file @de5a384
@@ -949,7 +949,11 @@
     (newline)
     (sieve-usage)))
-(define guimb? (string->obarray-symbol #f "mu-mailbox-open" #t))
+(define guimb? (catch #t
+                      (lambda ()
+                        (let ((package mu-package))
+                          package))
+                      (lambda args #f)))
 (if (and guimb? (string? user-name))
    (set! filename (sieve-expand-filename filename)))