5 lines
123 B
Racket
5 lines
123 B
Racket
|
#lang racket
|
||
|
|
(require ffi/unsafe)
|
||
|
|
(define fork (get-ffi-obj 'fork #f (_fun -> _int)))
|
||
|
|
(printf ">>> fork() => ~s\n" (fork))
|