Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (use-modules (system foreign)
- (rnrs bytevectors))
- (define libsodium (dynamic-link "libsodium.so"))
- (define sodium_malloc
- (pointer->procedure
- '*
- (dynamic-func "sodium_malloc" libsodium)
- (list size_t)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement