fix(stdlib): Properly print Range values (#2184)

Author: spotandjake

compiler/test/suites/strings.re

@@ -401,4 +401,11 @@ bar", 1))|},
     {|print(b"abc😂")|},
     "Byte literals may not contain non-ascii unicode characters",
   );
+
+  // Range
+  assertRun(
+    "range_printing",
+    {|print({ rangeStart: 1, rangeEnd: 2 })|},
+    "{\n  rangeStart: 1,\n  rangeEnd: 2\n}\n",
+  );
 });

stdlib/runtime/debugPrint.gr

@@ -1,3 +1,4 @@
+@noPervasives
 module DebugPrint
 
 from "runtime/numberUtils" include NumberUtils as Utils

stdlib/runtime/string.gr

@@ -71,12 +71,16 @@ let _LIST_ID = untagSimpleNumber(builtinId("List"))
 let _OPTION_ID = untagSimpleNumber(builtinId("Option"))
 @unsafe
 let _RESULT_ID = untagSimpleNumber(builtinId("Result"))
+@unsafe
+let _RANGE_ID = untagSimpleNumber(builtinId("Range"))
 
 let _SOME = "Some"
 let _NONE = "None"
 let _OK = "Ok"
 let _ERR = "Err"
 
+let _RANGE_FIELDS = [> "rangeStart", "rangeEnd"]
+
 // Resizable arrays: <num items> <capacity> <...data>
 @unsafe
 let _VEC_LEN_OFFSET = 0n
@@ -163,6 +167,12 @@ let isListVariant = variant => {
   typeId == _LIST_ID
 }
 
+@unsafe
+let isRangeRecord = record_ => {
+  let typeId = WasmI32.load(record_, 8n) >> 1n
+  typeId == _RANGE_ID
+}
+
 @unsafe
 let getBuiltinVariantName = variant => {
   let typeId = WasmI32.load(variant, 8n) >> 1n
@@ -231,14 +241,18 @@ let getVariantMetadata = variant => {
 @unsafe
 let getRecordFieldNames = record_ => {
   let typeHash = WasmI32.load(record_, 4n) >> 1n
-  let arity = WasmI32.load(record_, 12n)
+  if (isRangeRecord(record_)) {
+    return Memory.incRef(WasmI32.fromGrain(_RANGE_FIELDS))
+  } else {
+    let arity = WasmI32.load(record_, 12n)
 
-  let mut fields = findTypeMetadata(typeHash)
+    let mut fields = findTypeMetadata(typeHash)
 
-  if (fields == -1n) return -1n
+    if (fields == -1n) return -1n
 
-  fields += 4n
-  return getFieldArray(fields, arity)
+    fields += 4n
+    return getFieldArray(fields, arity)
+  }
 }
 
 @unsafe