From 7db42ab1b9d3c764772ca63c74bf44bb2b8b8325 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Jul 2022 14:35:38 -0400
Subject: First-class programs instead of having a "lux program" extension.

---
 stdlib/source/test/lux.lux | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index 04d1ca0f9..74983c2a1 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -1,7 +1,7 @@
 (.`` (.`` (.require
            [library
             ["/" lux (.except)
-             [program (.only program:)]
+             [program (.only program)]
              ["_" test (.only Test)]
              [abstract
               [monad (.only do)]]
@@ -1212,15 +1212,16 @@
              /ffi.test
              ))))
 
-(program: args
-  (let [times (for @.old 100
-                   @.jvm 100
-                   @.js 10
-                   @.python 1
-                   @.lua 1
-                   @.ruby 1
-                   100)]
-    (<| io.io
-        _.run!
-        (_.times times)
-        ..test)))
+(def _
+  (program args
+    (let [times (for @.old 100
+                     @.jvm 100
+                     @.js 10
+                     @.python 1
+                     @.lua 1
+                     @.ruby 1
+                     100)]
+      (<| io.io
+          _.run!
+          (_.times times)
+          ..test))))
-- 
cgit v1.2.3