Changeset 115 for lang/scheme/r6rs

Timestamp:

03/21/09 07:57:41 (16 years ago)

Author:

naoya_t

Message:

 

Files:

• lang/scheme/r6rs/ypsilon/ffi/mecab-ffi/trunk/lib/binding/mecab-ffi.scm (modified) (2 diffs)

lang/scheme/r6rs/ypsilon/ffi/mecab-ffi/trunk/lib/binding/mecab-ffi.scm

@@ -37 +37 @@
                  )
 
-;(define libmecab (open-shared-library "/usr/local/lib/libmecab.1.dylib"))
 (define libmecab (load-shared-object "libmecab.1.dylib"))
 
@@ -45 +44 @@
 (define-c-typedef mecab-path-t*  void*)
 (define-c-typedef mecab-token-t* void*)
-;(define-c-typedef uint int)
-;(define-c-typedef ushort short)
-;(define-c-typedef uchar char)
 
 (define-c-struct-type mecab-node-t