9 lines
347 B
Scheme
9 lines
347 B
Scheme
(define-c-library libc '("stdlib.h" "string.h" "stdio.h") #f ())
|
|
|
|
;(define-c-procedure c-setenv libc 'setenv 'int '(pointer pointer int))
|
|
|
|
(define (setenv var val)
|
|
(when (not (string? var)) (error "setenv error: var must be string"))
|
|
(when (not (string? val)) (error "setenv error: val must be string"))
|
|
(set-environment-variable! var val))
|