From 5b36c00da8a21c5d70adec4b50ef573e12dc5cf8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 11 Jun 2022 00:10:52 -0400
Subject: De-sigil-ification: : [Part 2]

---
 lux-r/source/program.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lux-r/source')

diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux
index 2f4fab588..1a61a8545 100644
--- a/lux-r/source/program.lux
+++ b/lux-r/source/program.lux
@@ -23,7 +23,7 @@
    [collection
     ["[0]" array (.only Array)]]]
   ["[0]" macro
-   [syntax (.only syntax:)]
+   [syntax (.only syntax)]
    ["[0]" template]
    ["[0]" code]]
   [math
@@ -186,8 +186,9 @@
 ...   (|>> (pipe.case #0 (org/armedbear/lisp/Nil::NIL)
 ...               #1 (org/armedbear/lisp/Symbol::T))))
 
-(syntax: (%%code [term <code>.any])
-  (wrap (list (code.text (%.code term)))))
+(def: %%code
+  (syntax (_ [term <code>.any])
+    (wrap (list (code.text (%.code term))))))
 
 (def: (host_value value)
   (-> Any org/renjin/sexp/SEXP)
-- 
cgit v1.2.3