Refactor compiler (#1948)

raviqqe · Jan 7, 2025 · 2b31b52 · 2b31b52
1 parent 45969ae
commit 2b31b52
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/compile.scm b/compile.scm
@@ -305,9 +305,7 @@
 (define library-symbol-separator #\%)
 
 (define (library-symbol? name)
-  (memv-position
-    library-symbol-separator
-    (string->list (symbol->string name))))
+  (memv library-symbol-separator (string->list (symbol->string name))))
 
 (define (build-library-name id name)
   (string-append
@@ -923,7 +921,7 @@
 
 ; If a variable is not in environment, it is considered to be global.
 (define (compilation-context-resolve context variable)
-  (or (memv-position variable (compilation-context-environment context)) variable))
+  (or (memq-position variable (compilation-context-environment context)) variable))
 
 ;; Procedures