suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 16e6e3d94cbe62338ac57e8b995293d69a3fb994
This commit is contained in:
Matthew Flatt 2003-07-26 16:00:25 +00:00
parent 346878aff5
commit c152f27cb6
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/framework/private/autosave.ss
View File

@ -114,7 +114,22 @@
;; start everything going
(define (main)
(when (file-exists? autosave-toc-filename)
(let* ([table (call-with-input-file autosave-toc-filename read)]
;; Load table from file, and check that the file was not corrupted
(let* ([table (let ([v (with-handlers ([not-break-exn? (lambda (x) null)])
(call-with-input-file autosave-toc-filename read))]
[path? (lambda (x)
(and (string? x)
(absolute-path? x)))])
(if (and (list? v)
(andmap (lambda (i)
(and (list? i)
(= 2 (length i))
(or (not (car i))
(path? (car i)))
(path? (cadr i))))
v))
v
null))]
;; assume that the autosave file was deleted due to the file being saved
[filtered-table
(filter (lambda (x) (file-exists? (cadr x))) table)])