From f623de52d76ad8ec96feb048cd95a3fb150717e1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 5 Jun 2022 01:39:29 -0400
Subject: De-sigil-ification: : [Part 1]

---
 lux-cl/source/program.lux | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

(limited to 'lux-cl/source/program.lux')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 2d56463d8..0e0db5007 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -63,33 +63,33 @@
    ["[1][0]" cli]
    ["[1][0]" static]]])
 
-(ffi.import: java/lang/String
+(ffi.import java/lang/String
   "[1]::[0]")
 
-(ffi.import: (java/lang/Class a)
+(ffi.import (java/lang/Class a)
   "[1]::[0]"
   ("static" forName [java/lang/String] "try" (java/lang/Class java/lang/Object)))
 
-(ffi.import: java/lang/Object
+(ffi.import java/lang/Object
   "[1]::[0]"
   (toString [] java/lang/String)
   (getClass [] (java/lang/Class java/lang/Object)))
 
-(ffi.import: java/lang/Long
+(ffi.import java/lang/Long
   "[1]::[0]"
   (intValue [] java/lang/Integer))
 
-(ffi.import: java/lang/Integer
+(ffi.import java/lang/Integer
   "[1]::[0]"
   (longValue [] long))
 
-(ffi.import: java/lang/Number
+(ffi.import java/lang/Number
   "[1]::[0]"
   (intValue [] java/lang/Integer)
   (longValue [] long)
   (doubleValue [] double))
 
-(ffi.import: org/armedbear/lisp/LispObject
+(ffi.import org/armedbear/lisp/LispObject
   "[1]::[0]"
   (length [] int)
   (NTH [int] org/armedbear/lisp/LispObject)
@@ -99,56 +99,56 @@
 
 ... The org/armedbear/lisp/Interpreter must be imported before the
 ... other ones, because there is an order dependency in their static initialization.
-(ffi.import: org/armedbear/lisp/Interpreter
+(ffi.import org/armedbear/lisp/Interpreter
   "[1]::[0]"
   ("static" getInstance [] org/armedbear/lisp/Interpreter)
   ("static" createInstance [] "?" org/armedbear/lisp/Interpreter)
   (eval [java/lang/String] "try" org/armedbear/lisp/LispObject))
 
-(ffi.import: org/armedbear/lisp/Symbol
+(ffi.import org/armedbear/lisp/Symbol
   "[1]::[0]"
   ("static" T org/armedbear/lisp/Symbol))
 
-(ffi.import: org/armedbear/lisp/DoubleFloat
+(ffi.import org/armedbear/lisp/DoubleFloat
   "[1]::[0]"
   (new [double])
   (doubleValue [] double))
 
-(ffi.import: org/armedbear/lisp/SimpleString
+(ffi.import org/armedbear/lisp/SimpleString
   "[1]::[0]"
   (new [java/lang/String])
   (getStringValue [] java/lang/String))
 
-(ffi.import: org/armedbear/lisp/LispInteger
+(ffi.import org/armedbear/lisp/LispInteger
   "[1]::[0]")
 
-(ffi.import: org/armedbear/lisp/Bignum
+(ffi.import org/armedbear/lisp/Bignum
   "[1]::[0]"
   (longValue [] long)
   ("static" getInstance [long] org/armedbear/lisp/LispInteger))
 
-(ffi.import: org/armedbear/lisp/Fixnum
+(ffi.import org/armedbear/lisp/Fixnum
   "[1]::[0]"
   (longValue [] long)
   ("static" getInstance [int] org/armedbear/lisp/Fixnum))
 
-(ffi.import: org/armedbear/lisp/Nil
+(ffi.import org/armedbear/lisp/Nil
   "[1]::[0]"
   ("static" NIL org/armedbear/lisp/Symbol))
 
-(ffi.import: org/armedbear/lisp/SimpleVector
+(ffi.import org/armedbear/lisp/SimpleVector
   "[1]::[0]")
 
-(ffi.import: org/armedbear/lisp/Cons
+(ffi.import org/armedbear/lisp/Cons
   "[1]::[0]")
 
-(ffi.import: org/armedbear/lisp/Closure
+(ffi.import org/armedbear/lisp/Closure
   "[1]::[0]")
 
 (ffi.interface: LuxADT
   (getValue [] java/lang/Object))
 
-(ffi.import: program/LuxADT
+(ffi.import program/LuxADT
   "[1]::[0]"
   (getValue [] java/lang/Object))
 
-- 
cgit v1.2.3