Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Dont stop if library can not be compiled

This commit is contained in:
retropikzel 2025-11-21 21:59:27 +02:00
parent 0544cef633
commit e2a6ef3ee2
2 changed files with 124 additions and 119 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compile-scheme.scm
View File

@ -87,7 +87,8 @@
"a.out" "a.out"
#f)))) #f))))
(if (and (symbol=? scheme-type 'compiler) (if (and (symbol=? scheme-type 'compiler)
(symbol=? compilation-target 'php)) ;(symbol=? compilation-target 'php)
)
(string-append outfile ".bin") (string-append outfile ".bin")
outfile))) outfile)))

20
libs/library-util.sld
View File

@ -101,15 +101,19 @@
(define library-dependencies (define library-dependencies
(lambda (implementation directories path previous-indent indent) (lambda (implementation directories path previous-indent indent)
;(for-each (lambda (item) (display " ")) indent) (call-with-current-continuation
;(display path) (lambda (k)
(with-exception-handler
(lambda (x)
(display "Error on compiling library (ignoring): ")
(write x)
(newline)
(k (list)))
(lambda ()
(let ((full-path (search-library-file directories path))) (let ((full-path (search-library-file directories path)))
(if (not (file-exists? full-path)) (if (not (file-exists? full-path))
(begin (list)
;(display #\space)
;(display "not found, ignoring")
;(newline)
(list))
(begin (begin
(newline) (newline)
(letrec* ((raw-data (read-until-library full-path)) (letrec* ((raw-data (read-until-library full-path))
@ -131,5 +135,5 @@
indent indent
(append indent (list #\space #\space)))))) (append indent (list #\space #\space))))))
paths)))) paths))))
(remove-nonexistent directories (reverse flat-tree)))))))))) (remove-nonexistent directories (reverse flat-tree))))))))))))))