Typo FFS

mighty-gerbils · Dec 9, 2024 · e46fc92 · e46fc92
1 parent f1723ee
commit e46fc92
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/gerbil/core/expander.ss b/src/gerbil/core/expander.ss
@@ -41,7 +41,7 @@ package: gerbil/core
     current-expander-path
     current-expander-phi
     current-expander-compiling?
-    current-compilation-target?
+    current-compilation-target
     current-module-reader-path
     current-module-reader-args
     local-context? top-context? module-context? prelude-context?

diff --git a/src/gerbil/core/sugar.ss b/src/gerbil/core/sugar.ss
@@ -149,7 +149,7 @@ package: gerbil/core
               (syntax->list #'(detail ...))))))
 
   (defrules compilation-target? ()
-    ((_ sym) (eq? (gx#current-compilation-target) 'sym))))
+    ((_ sym) (eq? (current-compilation-target) 'sym))))
 
 (module Sugar-2
   (import Sugar-1 (phi: +1 Sugar-1))