add #line directive to generated C code to support source debugging

2025-11-30 14:16:38 +03:00
parent b2df79520e
commit f5b3fcb399
4 changed files with 30 additions and 3 deletions
--- a/utils.scm
+++ b/utils.scm
@@ -19,6 +19,13 @@
         (current-directory)
         (pathname-directory file))))))

+(define (to-absolute-pathname pathname)
+  (if (absolute-pathname? pathname)
+      pathname
+      (make-absolute-pathname
+       (current-directory)
+       pathname)))
+
 (define (list-split src-list split-elt)
  ;; split '(1 2 / 3 4 / 5 6) by '/ -> '((1 2) (3 4) (5 6))
  (fold (lambda (elt acc)