Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | minor fix on with-mktemp |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
778dd320bbf4de7d863e4d2ce1ce5d6a |
| User & Date: | aldo 2016-12-08 00:57:25 |
Context
|
2016-12-08
| ||
| 01:27 | eqv? or zero? instead of eq? somewhere check-in: 27a45ffaf8 user: aldo tags: trunk | |
| 00:57 | minor fix on with-mktemp check-in: 778dd320bb user: aldo tags: trunk | |
| 00:45 | added libinit to sqlite3 check-in: d1aa1ba6b3 user: aldo tags: trunk | |
Changes
Changes to posix.sls.
36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 |
(define mktemp* (foreign-procedure "mktemp" (string) string))
(let ([s (mktemp* template)])
(when (string=? s "")
(errorf 'mktemp "failed: ~a" (strerror)))
s))
(define (with-mktemp template f)
(define file #f)
(dynamic-wind
(lambda () (set! file (mktemp template)))
(lambda () (f file))
(lambda () (delete-file file))))
(define (close fd)
(define close* (foreign-procedure "close" (int) int))
(if (< (close* fd) 0)
(errorf 'close "failed: ~a" (strerror))))
(define (wtermsig x)
|
| | < |
36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
(define mktemp* (foreign-procedure "mktemp" (string) string))
(let ([s (mktemp* template)])
(when (string=? s "")
(errorf 'mktemp "failed: ~a" (strerror)))
s))
(define (with-mktemp template f)
(define file (mktemp template))
(dynamic-wind
(lambda () (void))
(lambda () (f file))
(lambda () (delete-file file))))
(define (close fd)
(define close* (foreign-procedure "close" (int) int))
(if (< (close* fd) 0)
(errorf 'close "failed: ~a" (strerror))))
(define (wtermsig x)
|