12 lines
239 B
Scheme
12 lines
239 B
Scheme
(library
|
|
(crc32c checksum)
|
|
|
|
(export crc32c)
|
|
|
|
(import (chezscheme))
|
|
|
|
(define __ (load-shared-object "./crc32c/crc32c.so"))
|
|
|
|
(define crc32c
|
|
(foreign-procedure "crc32c" (unsigned-32 (* unsigned-8) unsigned) unsigned-32)))
|