From 25750ee505bd976d3c606200fec7253ad40c46d9 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Mon, 1 Aug 2022 19:37:49 -0700
Subject: Remove mutable globals.

Per a closer reading of R7RS, it's an error to mutate an imported
binding with set!. My apologies to Guile when I said they had a bug.
---
 csc.csc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'csc.csc')

diff --git a/csc.csc b/csc.csc
index 9dae75f..c338aa7 100644
--- a/csc.csc
+++ b/csc.csc
@@ -4,7 +4,7 @@
         (only (scheme read)
           read)
         (only (csc compiler)
-          *library-search-dirs*
+          add-library-search-dirs
           compile)
         (only (csc flag)
           *args*
@@ -69,7 +69,7 @@
                        ((file) file)
                        (_ (printf "Error: must pass exactly one file to csc.\n{}" *help-msg*)
                           (exit 2))))
-  (set! *library-search-dirs* *include*)
+  (add-library-search-dirs *include*)
   (write-file *output* (compile (read-file input-file))))
 
 
-- 
cgit v1.3.1