From 48f11e1d8394b516b778a0e76c5d29bf64492261 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 13 Feb 2019 18:43:17 -0400
Subject: Re-named "logical-right-shift" to "logic-right-shift".

---
 stdlib/source/test/lux.lux | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

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

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index d754862a8..391526efb 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -26,6 +26,20 @@
    [host
     [js (#+)]
     [scheme (#+)]]
+   [tool
+    [compiler
+     [phase
+      [translation
+       [js
+        [runtime (#+)]
+        [primitive (#+)]
+        [structure (#+)]
+        [reference (#+)]]
+       [scheme
+        [runtime (#+)]
+        [primitive (#+)]
+        [structure (#+)]
+        [reference (#+)]]]]]]
    ## [control
    ##  ["._" contract]
    ##  ["._" concatenative]
@@ -62,17 +76,12 @@
    ##  ["._" environment]
    ##  ["._" console]]
    ## [compiler
-   ##  [host
-   ##   [".H" scheme]]
    ##  ["._" cli]
    ##  ["._" default
    ##   ["._" evaluation]
    ##   [phase
    ##    ["._" translation
    ##     [scheme
-   ##      ["._scheme" primitive]
-   ##      ["._scheme" structure]
-   ##      ["._scheme" reference]
    ##      ["._scheme" function]
    ##      ["._scheme" loop]
    ##      ["._scheme" case]
@@ -289,7 +298,7 @@
 (def: frac-rev
   (r.Random Rev)
   (|> r.rev
-      (:: r.functor map (|>> (i64.left-shift 11) (i64.logical-right-shift 11)))))
+      (:: r.functor map (|>> (i64.left-shift 11) (i64.logic-right-shift 11)))))
 
 (def: prelude-macros
   Test
-- 
cgit v1.2.3