From 14b2600bd58b0a4b09c6647c1d78ab7bccd4c1aa Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 18 Jan 2025 02:07:40 -0700
Subject: set modules folder to modules path

---
 src/gscc | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'src/gscc')

diff --git a/src/gscc b/src/gscc
index d00b116..41cbbed 100755
--- a/src/gscc
+++ b/src/gscc
@@ -1,16 +1,16 @@
 #!/run/current-system/profile/bin/guile \
--L ./src -e main -s
+-L ./src/modules -e main -s
 !#
 
 
 (use-modules (ice-9 getopt-long)
              (ice-9 popen)
              (ice-9 pretty-print)
-             (modules lexer driver)
-             (modules parser driver)
-             (modules tacky driver)
-             (modules generator driver)
-             (modules emitter driver))
+             (lexer driver)
+             (parser driver)
+             (tacky driver)
+             (generator driver)
+             (emitter driver))
 
 
 (define version "v0.1.1")
@@ -53,11 +53,11 @@ Options:
                         (a-file (string-append dest ".s")))
                     (when (file-exists? a-file)
                       (delete-file a-file))
-                    ;; (let ((port (open-output-file a-file)))
-                    ;;   (display program port)
-                    ;;   (close-port port))
-                    ;; (when (postprocess a-file dest)
-                    ;;   (display (string-concatenate `("Postprocess reported success (wrote " ,dest ").\n"))))
+                    (let ((port (open-output-file a-file)))
+                      (display program port)
+                      (close-port port))
+                    (when (postprocess a-file dest)
+                      (display (string-concatenate `("Postprocess reported success (wrote " ,dest ").\n"))))
                     ))))))))))
 
 (define (preprocess file)
-- 
cgit v1.2.3