4 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/macro/code.lux b/stdlib/source/lux/macro/code.lux
index 2755ae6f5..a171d74d5 100644
--- a/stdlib/source/lux/macro/code.lux
+++ b/stdlib/source/lux/macro/code.lux
@@ -13,7 +13,7 @@
 ##   (#;Bool Bool)
 ##   (#;Nat Nat)
 ##   (#;Int Int)
-##   (#;Real Real)
+##   (#;Frac Frac)
 ##   (#;Text Text)
 ##   (#;Symbol Text Text)
 ##   (#;Tag Text Text)
@@ -37,7 +37,7 @@
   [nat    Nat               #;Nat]
   [int    Int               #;Int]
   [deg    Deg               #;Deg]
-  [real   Real              #;Real]
+  [frac   Frac              #;Frac]
   [text   Text              #;Text]
   [symbol Ident             #;Symbol]
   [tag    Ident             #;Tag]
@@ -66,7 +66,7 @@
        [#;Nat    Eq<Nat>]
        [#;Int    Eq<Int>]
        [#;Deg    Eq<Deg>]
-       [#;Real   Eq<Real>]
+       [#;Frac   Eq<Frac>]
        [#;Text   Eq<Text>]
        [#;Symbol Eq<Ident>]
        [#;Tag    Eq<Ident>])
@@ -102,7 +102,7 @@
      [#;Nat    Codec<Text,Nat>]
      [#;Int    Codec<Text,Int>]
      [#;Deg    Codec<Text,Deg>]
-     [#;Real   Codec<Text,Real>]
+     [#;Frac   Codec<Text,Frac>]
      [#;Symbol Codec<Text,Ident>])
 
     [_ (#;Text value)]
diff --git a/stdlib/source/lux/macro/poly.lux b/stdlib/source/lux/macro/poly.lux
index 995cc023a..bc8d5d375 100644
--- a/stdlib/source/lux/macro/poly.lux
+++ b/stdlib/source/lux/macro/poly.lux
@@ -131,7 +131,7 @@
   [nat  "Nat"  (#;Host "#Nat" #;Nil)]
   [int  "Int"  (#;Host "#Int" #;Nil)]
   [deg  "Deg"  (#;Host "#Deg" #;Nil)]
-  [real "Real" (#;Host "#Real" #;Nil)]
+  [frac "Frac" (#;Host "#Frac" #;Nil)]
   [text "Text" (#;Host "#Text" #;Nil)]
   )
 
@@ -146,7 +146,7 @@
                          nat
                          int
                          deg
-                         real
+                         frac
                          text))
       (#R;Error error)
       (p;fail error)
diff --git a/stdlib/source/lux/macro/poly/eq.lux b/stdlib/source/lux/macro/poly/eq.lux
index b4d1a5231..45013ebb8 100644
--- a/stdlib/source/lux/macro/poly/eq.lux
+++ b/stdlib/source/lux/macro/poly/eq.lux
@@ -43,7 +43,7 @@
                [poly;nat  number;Eq<Nat>]
                [poly;int  number;Eq<Int>]
                [poly;deg  number;Eq<Deg>]
-               [poly;real number;Eq<Real>]
+               [poly;frac number;Eq<Frac>]
                [poly;text text;Eq<Text>])
      <time> (do-template [<type> <eq>]
               [(do @
diff --git a/stdlib/source/lux/macro/syntax.lux b/stdlib/source/lux/macro/syntax.lux
index f56c84e1b..4a05041f6 100644
--- a/stdlib/source/lux/macro/syntax.lux
+++ b/stdlib/source/lux/macro/syntax.lux
@@ -58,7 +58,7 @@
   [   nat   Nat    #;Nat  number;Eq<Nat> "nat"]
   [   int   Int    #;Int  number;Eq<Int> "int"]
   [  deg    Deg    #;Deg  number;Eq<Deg> "deg"]
-  [  real  Real   #;Real number;Eq<Real> "real"]
+  [  frac  Frac   #;Frac number;Eq<Frac> "frac"]
   [  text  Text   #;Text   text;Eq<Text> "text"]
   [symbol Ident #;Symbol ident;Eq<Ident> "symbol"]
   [   tag Ident    #;Tag ident;Eq<Ident> "tag"]