add #line directive to generated C code to support source debugging
This commit is contained in:
@@ -9,11 +9,12 @@
|
||||
(chicken port)
|
||||
(chicken read-syntax)
|
||||
(chicken string)
|
||||
(chicken syntax)
|
||||
brev-separate
|
||||
fmt)
|
||||
|
||||
(define (read-forms acc)
|
||||
(let ((r (read)))
|
||||
(let ((r (read-with-source-info (current-input-port))))
|
||||
(if (eof-object? r) (reverse acc)
|
||||
(read-forms (cons r acc)))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user