mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
13 lines
517 B
Scheme
13 lines
517 B
Scheme
(define-library (chibi temp-file)
|
|
(export call-with-temp-file call-with-temp-dir)
|
|
(import (scheme base) (scheme time)
|
|
(chibi filesystem) (chibi pathname))
|
|
(cond-expand
|
|
((library (srfi 151)) (import (srfi 151)))
|
|
((library (srfi 33)) (import (srfi 33)))
|
|
(else (import (srfi 60))))
|
|
(cond-expand
|
|
(chibi (import (only (chibi process) current-process-id)))
|
|
(chicken (import (only (posix) current-process-id)))
|
|
(else (begin (define (current-process-id) 0))))
|
|
(include "temp-file.scm"))
|