From 79c10caf4c7e370dc53c4c60c57cc16ccec48773 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 26 Feb 2017 19:36:21 -0400
Subject: - Added a new try-catch procedure.

---
 stdlib/source/lux/test.lux | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'stdlib/source')

diff --git a/stdlib/source/lux/test.lux b/stdlib/source/lux/test.lux
index bab513cc4..d953b7d65 100644
--- a/stdlib/source/lux/test.lux
+++ b/stdlib/source/lux/test.lux
@@ -13,8 +13,7 @@
              text/format
              [error #- fail "Error/" Monad<Error>])
        [io #- run]
-       ["R" random]
-       [host #- try]))
+       ["R" random]))
 
 ## [Host]
 (def: now
@@ -156,7 +155,7 @@
 
 (def: #hidden (try-body lazy-body)
   (-> (IO Test) Test)
-  (case (host;try (io;run lazy-body))
+  (case (_lux_proc ["lux" "try"] [lazy-body])
     (#;Right output)
     output
 
-- 
cgit v1.2.3