- Re-named "degree" to "revolution".

9 files changed, 16 insertions, 34 deletions

diff --git a/stdlib/source/lux/lang/compiler/analysis.lux b/stdlib/source/lux/lang/compiler/analysis.lux
index 235e399fb..9d35ff92c 100644
--- a/stdlib/source/lux/lang/compiler/analysis.lux
+++ b/stdlib/source/lux/lang/compiler/analysis.lux
@@ -1,5 +1,5 @@
 (.module:
-  [lux #- nat int deg]
+  [lux #- nat int rev]
   (lux (data [product]
              [error]
              [text "text/" Eq<Text>]
@@ -13,7 +13,7 @@
   (#Bool Bool)
   (#Nat Nat)
   (#Int Int)
-  (#Deg Deg)
+  (#Rev Rev)
   (#Frac Frac)
   (#Text Text))
 
@@ -73,7 +73,7 @@
   [bool Bool #Bool]
   [nat  Nat  #Nat]
   [int  Int  #Int]
-  [deg  Deg  #Deg]
+  [rev  Rev  #Rev]
   [frac Frac #Frac]
   [text Text #Text]
   )
@@ -208,7 +208,7 @@
   [pattern/bool #..Bool]
   [pattern/nat  #..Nat]
   [pattern/int  #..Int]
-  [pattern/deg  #..Deg]
+  [pattern/rev  #..Rev]
   [pattern/frac #..Frac]
   [pattern/text #..Text]
   )
diff --git a/stdlib/source/lux/lang/compiler/analysis/case.lux b/stdlib/source/lux/lang/compiler/analysis/case.lux
index 84eb23af5..233ac114a 100644
--- a/stdlib/source/lux/lang/compiler/analysis/case.lux
+++ b/stdlib/source/lux/lang/compiler/analysis/case.lux
@@ -160,7 +160,7 @@
     ([Bool (#.Bool pattern-value) (#//.Bool pattern-value)]
      [Nat  (#.Nat pattern-value)  (#//.Nat pattern-value)]
      [Int  (#.Int pattern-value)  (#//.Int pattern-value)]
-     [Deg  (#.Deg pattern-value)  (#//.Deg pattern-value)]
+     [Rev  (#.Rev pattern-value)  (#//.Rev pattern-value)]
      [Frac (#.Frac pattern-value) (#//.Frac pattern-value)]
      [Text (#.Text pattern-value) (#//.Text pattern-value)]
      [Any  (#.Tuple #.Nil)        #//.Unit])
diff --git a/stdlib/source/lux/lang/compiler/analysis/case/coverage.lux b/stdlib/source/lux/lang/compiler/analysis/case/coverage.lux
index 6a965742a..3a63a76fc 100644
--- a/stdlib/source/lux/lang/compiler/analysis/case/coverage.lux
+++ b/stdlib/source/lux/lang/compiler/analysis/case/coverage.lux
@@ -80,7 +80,7 @@
       (operation/wrap #Partial))
     ([#///.Nat]
      [#///.Int]
-     [#///.Deg]
+     [#///.Rev]
      [#///.Frac]
      [#///.Text])
 
diff --git a/stdlib/source/lux/lang/compiler/analysis/expression.lux b/stdlib/source/lux/lang/compiler/analysis/expression.lux
index 879f383e8..2ef2cae5b 100644
--- a/stdlib/source/lux/lang/compiler/analysis/expression.lux
+++ b/stdlib/source/lux/lang/compiler/analysis/expression.lux
@@ -43,7 +43,7 @@
             ([#.Bool //primitive.bool]
              [#.Nat  //primitive.nat]
              [#.Int  //primitive.int]
-             [#.Deg  //primitive.deg]
+             [#.Rev  //primitive.rev]
              [#.Frac //primitive.frac]
              [#.Text //primitive.text])
 
diff --git a/stdlib/source/lux/lang/compiler/analysis/primitive.lux b/stdlib/source/lux/lang/compiler/analysis/primitive.lux
index 74596fba2..5f6604926 100644
--- a/stdlib/source/lux/lang/compiler/analysis/primitive.lux
+++ b/stdlib/source/lux/lang/compiler/analysis/primitive.lux
@@ -1,5 +1,5 @@
 (.module:
-  [lux #- nat int deg]
+  [lux #- nat int rev]
   (lux (control monad)
        [macro])
   [// #+ Analysis]
@@ -16,7 +16,7 @@
   [bool Bool #//.Bool]
   [nat  Nat  #//.Nat]
   [int  Int  #//.Int]
-  [deg  Deg  #//.Deg]
+  [rev  Rev  #//.Rev]
   [frac Frac #//.Frac]
   [text Text #//.Text]
   )
diff --git a/stdlib/source/lux/lang/compiler/extension/analysis/common.lux b/stdlib/source/lux/lang/compiler/extension/analysis/common.lux
index 9987bd369..3cd23ed17 100644
--- a/stdlib/source/lux/lang/compiler/extension/analysis/common.lux
+++ b/stdlib/source/lux/lang/compiler/extension/analysis/common.lux
@@ -175,23 +175,6 @@
           (///bundle.install "to-frac" (unary Int Frac))
           (///bundle.install "char" (unary Int Text)))))
 
-(def: bundle/deg
-  ///.Bundle
-  (<| (///bundle.prefix "deg")
-      (|> ///.fresh
-          (///bundle.install "+" (binary Deg Deg Deg))
-          (///bundle.install "-" (binary Deg Deg Deg))
-          (///bundle.install "*" (binary Deg Deg Deg))
-          (///bundle.install "/" (binary Deg Deg Deg))
-          (///bundle.install "%" (binary Deg Deg Deg))
-          (///bundle.install "=" (binary Deg Deg Bool))
-          (///bundle.install "<" (binary Deg Deg Bool))
-          (///bundle.install "scale" (binary Deg Nat Deg))
-          (///bundle.install "reciprocal" (binary Deg Nat Deg))
-          (///bundle.install "min" (nullary Deg))
-          (///bundle.install "max" (nullary Deg))
-          (///bundle.install "to-frac" (unary Deg Frac)))))
-
 (def: bundle/frac
   ///.Bundle
   (<| (///bundle.prefix "frac")
@@ -206,7 +189,7 @@
           (///bundle.install "smallest" (nullary Frac))
           (///bundle.install "min" (nullary Frac))
           (///bundle.install "max" (nullary Frac))
-          (///bundle.install "to-deg" (unary Frac Deg))
+          (///bundle.install "to-rev" (unary Frac Rev))
           (///bundle.install "to-int" (unary Frac Int))
           (///bundle.install "encode" (unary Frac Text))
           (///bundle.install "decode" (unary Text (type (Maybe Frac)))))))
@@ -381,7 +364,6 @@
           (dict.merge bundle/lux)
           (dict.merge bundle/bit)
           (dict.merge bundle/int)
-          (dict.merge bundle/deg)
           (dict.merge bundle/frac)
           (dict.merge bundle/text)
           (dict.merge bundle/array)
diff --git a/stdlib/source/lux/lang/compiler/synthesis/case.lux b/stdlib/source/lux/lang/compiler/synthesis/case.lux
index c12930963..88bfd36e9 100644
--- a/stdlib/source/lux/lang/compiler/synthesis/case.lux
+++ b/stdlib/source/lux/lang/compiler/synthesis/case.lux
@@ -30,7 +30,7 @@
       ([#///analysis.Bool #//.Bool]
        [#///analysis.Nat  (<| #//.I64 .i64)]
        [#///analysis.Int  (<| #//.I64 .i64)]
-       [#///analysis.Deg  (<| #//.I64 .i64)]
+       [#///analysis.Rev  (<| #//.I64 .i64)]
        [#///analysis.Frac #//.F64]
        [#///analysis.Text #//.Text]))
     
diff --git a/stdlib/source/lux/lang/compiler/synthesis/expression.lux b/stdlib/source/lux/lang/compiler/synthesis/expression.lux
index 52ea33805..8a07b0aea 100644
--- a/stdlib/source/lux/lang/compiler/synthesis/expression.lux
+++ b/stdlib/source/lux/lang/compiler/synthesis/expression.lux
@@ -34,7 +34,7 @@
       (<synthesis> (.i64 value)))
     ([#///analysis.Nat #//.I64]
      [#///analysis.Int #//.I64]
-     [#///analysis.Deg #//.I64])))
+     [#///analysis.Rev #//.I64])))
 
 (def: #export (synthesizer extensions)
   (-> (Extension ///extension.Synthesis) //.Synthesizer)
diff --git a/stdlib/source/lux/lang/syntax.lux b/stdlib/source/lux/lang/syntax.lux
index bbbd19232..536588443 100644
--- a/stdlib/source/lux/lang/syntax.lux
+++ b/stdlib/source/lux/lang/syntax.lux
@@ -25,7 +25,7 @@
 ## (file-name, line, column) to keep track of their provenance and
 ## location, which is helpful for documentation and debugging.
 (.module:
-  [lux #- nat int deg]
+  [lux #- nat int rev]
   (lux (control monad
                 ["p" parser "p/" Monad<Parser>]
                 ["ex" exception #+ exception:])
@@ -222,10 +222,10 @@
           rich-digits^)
    number.Codec<Text,Int>]
   
-  [deg #.Deg
+  [rev #.Rev
    (l.seq (l.one-of ".")
           rich-digits^)
-   number.Codec<Text,Deg>]
+   number.Codec<Text,Rev>]
   )
 
 (def: (nat-char where)
@@ -605,7 +605,7 @@
              (nat where)
              (frac where)
              (int where)
-             (deg where)
+             (rev where)
              (symbol current-module aliases where)
              (tag current-module aliases where)
              (text where)