From 9edace28e2e43fb8cb8dc64191b3ed3f5a185f99 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Tue, 13 Aug 2024 03:20:01 -0400
Subject: Fix ranges

---
 builtins/integers.c | 2 +-
 builtins/range.h    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'builtins')

diff --git a/builtins/integers.c b/builtins/integers.c
index b50d61c2..aa1ab4ae 100644
--- a/builtins/integers.c
+++ b/builtins/integers.c
@@ -360,7 +360,7 @@ public Int_t Int$random(Int_t min, Int_t max) {
 }
 
 public Range_t Int$to(Int_t from, Int_t to) {
-    return (Range_t){from, to, Int$compare(&to, &from, &$Int) >= 0 ? (Int_t){.small=(1<<2)|1} : (Int_t){.small=(-1/4)|1}};
+    return (Range_t){from, to, Int$compare(&to, &from, &$Int) >= 0 ? (Int_t){.small=(1<<2)|1} : (Int_t){.small=(-1>>2)|1}};
 }
 
 public Int_t Int$from_text(CORD text) {
diff --git a/builtins/range.h b/builtins/range.h
index 9f3b25af..802c85f8 100644
--- a/builtins/range.h
+++ b/builtins/range.h
@@ -3,7 +3,7 @@
 // Ranges represent numeric ranges
 
 Range_t Range$reversed(Range_t r);
-Range_t Range$by(Range_t r, int64_t step);
+Range_t Range$by(Range_t r, Int_t step);
 
 extern const TypeInfo Range;
 
-- 
cgit v1.2.3