Add missing extensions

ba-st · Aug 7, 2023 · 84b1e31 · 84b1e31
1 parent 8cedce2
commit 84b1e31
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 0 deletions.
diff --git a/source/Buoy-Collections-GS64-Extensions/SubscriptOutOfBounds.class.st b/source/Buoy-Collections-GS64-Extensions/SubscriptOutOfBounds.class.st
@@ -20,6 +20,12 @@ Class {
 	#category : #'Buoy-Collections-GS64-Extensions'
 }
 
+{ #category : #exceptionselector }
+SubscriptOutOfBounds class >> handles: exception [
+
+	^ (super handles: exception) or: [ OffsetError handles: exception ]
+]
+
 { #category : #signaling }
 SubscriptOutOfBounds class >> signalFor: subscript [
 	^ self

diff --git a/source/Buoy-GS64-Compatibility/OffsetError.class.st b/source/Buoy-GS64-Compatibility/OffsetError.class.st
@@ -0,0 +1,9 @@
+"
+OffsetError is an ImproperOperation signaled when an invalid offset
+is used to attempt a lookup in GS64.
+"
+Class {
+	#name : #OffsetError,
+	#superclass : #Error,
+	#category : #'Buoy-GS64-Compatibility-'
+}
diff --git a/source/Buoy-Math-GS64-Extensions/Integer.extension.st b/source/Buoy-Math-GS64-Extensions/Integer.extension.st
@@ -0,0 +1,8 @@
+Extension { #name : #Integer }
+
+{ #category : #'*Buoy-Math-GS64-Extensions' }
+Integer >> isInteger [
+	"True for all subclasses of Integer."
+
+	^ true
+]
diff --git a/source/Buoy-Math-GS64-Extensions/Number.extension.st b/source/Buoy-Math-GS64-Extensions/Number.extension.st
@@ -1,5 +1,11 @@
 Extension { #name : #Number }
 
+{ #category : #'*Buoy-Math-GS64-Extensions' }
+Number >> isInteger [
+
+	^ false
+]
+
 { #category : #'*Buoy-Math-GS64-Extensions' }
 Number >> isZero [