8 lines
153 B
Text
8 lines
153 B
Text
|
(import (otus ffi))
|
||
|
|
|
||
|
|
(define self (load-dynamic-library #f))
|
||
|
|
(define strdup
|
||
|
|
(self type-string "strdup" type-string))
|
||
|
|
|
||
|
|
(print (strdup "Hello World!"))
|