[MacPorts] #19913: Guile cannot found lib libguilereadline-v-17

[MacPorts]

#19913: Guile cannot found lib libguilereadline-v-17
-------------------------------------------------+--------------------------
 Reporter:  stephane.chomat@…                    |       Owner:  macports-tickets@…                   
     Type:  defect                               |      Status:  new                                  
 Priority:  Normal                               |   Milestone:                                       
Component:  ports                                |     Version:  1.7.1                                
 Keywords:  guile realine libguilereadline-v-17  |        Port:  guile                                
-------------------------------------------------+--------------------------
 I want to use readline  (use-modules (ice-9 readline)).
 It's work in linux system.

 I have this back trace when i write this command in .guile file

 {{{
 Backtrace:
 In unknown file:
    ?: 14* (if (or # #) (try-load-module name))
    ?: 15  [try-load-module (ice-9 readline)]
    ?: 16  (or (begin (try-module-linked name)) (try-module-autoload name)
 ...)
    ?: 17* [try-module-autoload (ice-9 readline)]
    ?: 18  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and #
 #))
     ...
    ?: 19  (letrec ((load-file #)) (dynamic-wind (lambda () #) (lambda ()
 #) ...) ...)
    ?: 20* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure
 #f ()>]
    ?: 21* [#<procedure #f ()>]
    ?: 22* (let* ((file #)) (cond (# => #) (# => #)))
    ?: 23  [#<procedure #f (full)>
 "/opt/local/share/guile/1.8/ice-9/readline.scm"]
     ...
    ?: 24  [with-fluid* #<fluid 7> #f #<procedure #f ()>]
    ?: 25* [#<procedure #f ()>]
    ?: 26* [load-file #<primitive-procedure primitive-load> ...]
    ?: 27* [save-module-excursion #<procedure #f ()>]
    ?: 28  (let (# #) (dynamic-wind # thunk #))
    ?: 29  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure
 #f ()>]
    ?: 30* [#<procedure #f ()>]
    ?: 31* [primitive-load "/opt/local/share/guile/1.8/ice-9/readline.scm"]
 In /opt/local/share/guile/1.8/ice-9/readline.scm:
   38: 32* (if (not #) (load-extension "libguilereadline-v-17"
 "scm_init_readline"))
   39: 33  [load-extension "libguilereadline-v-17" "scm_init_readline"]

 /opt/local/share/guile/1.8/ice-9/readline.scm:39:5: In procedure dynamic-
 link in expression (load-extension "libguilereadline-v-17"
 "scm_init_readline"):
 /opt/local/share/guile/1.8/ice-9/readline.scm:39:5: file:
 "libguilereadline-v-17", message: "file not found"
 }}}

 Lib libguilereadline-v-17 exists in :
 {{{
  ls /opt/local/lib/libguilereadline-v-17.
 libguilereadline-v-17.17.dylib  libguilereadline-v-17.dylib
 libguilereadline-v-17.a         libguilereadline-v-17.la
 }}}


 {{{
 guile> (use-modules (ice-9 readline))
 ERROR: In procedure dynamic-link:
 ERROR: file: "libguilereadline-v-17", message: "file not found"
 ABORT: (misc-error)

 }}}

-- 
Ticket URL: <http://trac.macports.org/ticket/19913>
MacPorts <http://www.macports.org/>
Ports system for Mac OS