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"
#f))))
(if (and (symbol=? scheme-type 'compiler)
(symbol=? compilation-target 'php))
;(symbol=? compilation-target 'php)
)
(string-append outfile ".bin")
outfile)))

20
libs/library-util.sld
View File

@ -101,15 +101,19 @@
(define library-dependencies
(lambda (implementation directories path previous-indent indent)
;(for-each (lambda (item) (display " ")) indent)
;(display path)
(call-with-current-continuation
(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)))
(if (not (file-exists? full-path))
(begin
;(display #\space)
;(display "not found, ignoring")
;(newline)
(list))
(list)
(begin
(newline)
(letrec* ((raw-data (read-until-library full-path))
@ -131,5 +135,5 @@
indent
(append indent (list #\space #\space))))))
paths))))
(remove-nonexistent directories (reverse flat-tree))))))))))
(remove-nonexistent directories (reverse flat-tree))))))))))))))