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.macros.scm
+++ b/utils.macros.scm
@@ -0,0 +1,15 @@
+(define-syntax prog1
+  (syntax-rules ()
+    ((prog1 form . forms)
+     (let ((res form))
+       (begin . forms)
+       res))))
+
+(define-syntax with-directory
+  (syntax-rules ()
+    ((with-directory path form . forms)
+     (let ((current-dir (current-directory)))
+       (set-working-directory path)
+       (prog1
+        (begin form . forms)
+        (change-directory current-dir))))))