9 lines
304 B
Scheme
9 lines
304 B
Scheme
(define-c-library libc '("stdlib.h") libc-name '((additional-versions ("6"))))
|
|
(define-c-procedure c-system libc 'system 'int '(pointer))
|
|
|
|
(define (system command)
|
|
(let* ((command-pointer (string->c-utf8 command))
|
|
(result (c-system command-pointer)))
|
|
(c-free command-pointer)
|
|
result))
|