From ef437d6584d8fd863c0dab276e5a3d4dc094767b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 29 Aug 2021 21:59:48 -0400
Subject: De-taggification | part 0

---
 lux-scheme/source/program.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lux-scheme')

diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index 5ffdcf74b..3371bb506 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -85,7 +85,7 @@
 
 (ffi.import: gnu/math/IntNum
   ["#::."
-   (new #manual [int])
+   (new "manual" [int])
    (longValue [] long)])
 
 (ffi.import: gnu/math/DFloNum
@@ -107,7 +107,7 @@
 
 (ffi.import: gnu/lists/EmptyList
   ["#::."
-   (#static emptyList gnu/lists/EmptyList)])
+   ("static" emptyList gnu/lists/EmptyList)])
 
 (ffi.import: (gnu/lists/FVector E)
   ["#::."
@@ -118,18 +118,18 @@
 
 (ffi.import: gnu/mapping/Procedure
   ["#::."
-   (apply2 [java/lang/Object java/lang/Object] #try java/lang/Object)
-   (applyN [[java/lang/Object]] #try java/lang/Object)])
+   (apply2 [java/lang/Object java/lang/Object] "try" java/lang/Object)
+   (applyN [[java/lang/Object]] "try" java/lang/Object)])
 
 (ffi.import: gnu/mapping/Environment)
 
 (ffi.import: gnu/expr/Language
   ["#::."
-   (eval [java/lang/String] #try java/lang/Object)])
+   (eval [java/lang/String] "try" java/lang/Object)])
 
 (ffi.import: kawa/standard/Scheme
   ["#::."
-   (#static getR7rsInstance [] kawa/standard/Scheme)])
+   ("static" getR7rsInstance [] kawa/standard/Scheme)])
 
 (def: (variant? value)
   (-> Any Bit)
-- 
cgit v1.2.3