minor changes

- better byte pretty printing
- remove unused macro
- enable gren optimizations
- remove unused content string from tailwind config
- make message passing description less confusing

Lang.gren.in

@@ -138,7 +138,7 @@ def(Parallelism, pe,
     Parallel execution paradigm,
     TransparentPE,           Transparent,     Code may be executed in parallel but the semantics of the language are unaffected,
     AutomaticPE,             Automatic,       The programmer can specify the desired parallelism but data sharing between execution threads is handled automatically,
-    MessagePassingPE,        Message Passing, Threads are isolated and communicate only by passing messages through channels,
+    MessagePassingPE,        Message Passing, Threads are isolated and communicate only by exchanging messages,
     ControlledSharedStatePE, Safe sharing,    Multiple threads can access the same memory but the language semantics ensures that no data races are possible,
     ManualSharedStatePE,     Shared state,    Multiple threads have access to the same memory uninhibited)
 

Main.gren

@@ -358,15 +358,19 @@ rangeToBytes i =
   let f = toFloat i in
   Math.round (1024 * (2^(f * (17/1000))))
 
+strRound : Float -> String
+strRound = String.fromInt << Math.truncate
+
 ppBytes : Int -> String
 ppBytes b =
-  let m = 1024 * 1024 in
-  if b > 2 * m then
-    String.fromInt (b // m) ++ "M"
+  let m = 1024 * 1024
+      f = toFloat b in
+  if b > 10 * m then
+    strRound (f / m) ++ "M"
   else if b > m then
-    String.fromInt (b // m) ++ "." ++ String.left 1 (String.fromInt (b - m)) ++ "M"
+    strRound (f / m) ++ "." ++ strRound (10 * (f / m - toFloat (b // m))) ++ "M"
   else
-    String.fromInt (b // 1024) ++ "K"
+    strRound (f / 1024) ++ "K"
 
 range : Int -> String -> String -> Int -> Int -> (Int -> Msg) -> Html Msg
 range m title desc min max msg =

Makefile

@@ -2,7 +2,7 @@
 all: main.js style.css
 
 main.js: Main.gren Lang.gren Bench.gren
-	gren make Main.gren --output main.js
+	gren make --optimize Main.gren --output main.js
 
 style.css: Main.gren tailwind.config.js
 	tailwindcss -o style.css

def.m4

@@ -4,8 +4,6 @@ changequote(«, »)
 define(«_nl», «
 »)
 
-define(«comma», «,»)
-
 define(«_shift2», «shift(shift($@))»)
 define(«_shift3», «shift(shift(shift($@)))»)
 define(«_shift4», «shift(shift(shift(shift($@))))»)

tailwind.config.js

@@ -1,6 +1,6 @@
 /** @type {import('tailwindcss').Config} */
 module.exports = {
-  content: ["Main.gren", "Style.gren"],
+  content: ["Main.gren"],
   theme: {
     extend: {
       boxShadow: {