modularize Sex compiler

2025-07-30 17:34:09 +03:00
parent 4be0d3f5ac
commit bc54ae6a05
6 changed files with 126 additions and 106 deletions
--- a/utils.scm
+++ b/utils.scm
@@ -0,0 +1,19 @@
+(declare (unit utils))
+
+(include "utils.macros.scm")
+
+(import
+  (chicken pathname)
+  (chicken process-context))
+
+(define (get-env-var name)
+  (get-environment-variable name))
+
+(define (set-working-directory file)
+  (change-directory
+   (normalize-pathname
+    (if (absolute-pathname? file)
+        (pathname-directory file)
+        (make-absolute-pathname
+         (current-directory)
+         (pathname-directory file))))))