Revision: 6377 Author: ek.kato Date: Thu May 6 22:55:35 2010 Log: * scm/dynlib.scm - (require-dynlib) : Fix to provide module name if succedded. - (unload-dynlib) : Add comment. * scm/annotation-eb.scm : Follow the change.
http://code.google.com/p/uim/source/detail?r=6377 Modified: /trunk/scm/annotation-eb.scm /trunk/scm/dynlib.scm ======================================= --- /trunk/scm/annotation-eb.scm Thu May 6 17:38:09 2010 +++ /trunk/scm/annotation-eb.scm Thu May 6 22:55:35 2010 @@ -28,8 +28,7 @@ ;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF ;;; SUCH DAMAGE. ;;;; -(and (require-dynlib "eb") - (provide "eb")) +(require-dynlib "eb") (define eb-ctx #f) ======================================= --- /trunk/scm/dynlib.scm Thu May 6 09:38:31 2010 +++ /trunk/scm/dynlib.scm Thu May 6 22:55:35 2010 @@ -124,6 +124,7 @@ library-ptr init-proc quit-proc) + (provide dynlib-name) #t) #f)))))) @@ -134,7 +135,9 @@ (init-proc (dynlib-list-query-instance-init dynlib-name)) (quit-proc (dynlib-list-query-instance-quit dynlib-name))) (%%dynlib-unbind library-ptr init-proc quit-proc) - (dynlib-list-delete dynlib-name) #t))) + (dynlib-list-delete dynlib-name) + ;; (unprovide dynlib-name) ;; FIXME + #t))) (define dynlib-unload-all (lambda ()
