Revision: 7135 Author: ek.kato Date: Mon Jun 6 21:50:55 2011 Log: * scm/annotation-osx-dcs.scm (annotation-osx-dcs-init) (annotation-osx-dcs-release) - Unload dynlib whith annotation-osx-dcs-release.
http://code.google.com/p/uim/source/detail?r=7135 Modified: /trunk/scm/annotation-osx-dcs.scm ======================================= --- /trunk/scm/annotation-osx-dcs.scm Tue May 24 00:51:42 2011 +++ /trunk/scm/annotation-osx-dcs.scm Mon Jun 6 21:50:55 2011 @@ -28,13 +28,12 @@ ;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF ;;; SUCH DAMAGE. ;;;; -(require-dynlib "osx-dcs") (define osx-dcs-ctx #f) (define annotation-osx-dcs-init (lambda () - (if (provided? "osx-dcs") + (if (require-dynlib "osx-dcs") (begin (set! osx-dcs-ctx #t) #t) @@ -51,5 +50,5 @@ (if osx-dcs-ctx (begin (set! osx-dcs-ctx #f) - #t) + (dynlib-unload "osx-dcs")) #f)))
