minor fix on type compatibility

tomooda · Feb 1, 2024 · eace6b4 · eace6b4
1 parent 2a4177c
commit eace6b4
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/repository/ViennaTalk-Type-Core/ViennaUnitType.class.st b/repository/ViennaTalk-Type-Core/ViennaUnitType.class.st
@@ -31,6 +31,14 @@ ViennaUnitType >> basicIsEnumerable [
 	^ true
 ]
 
+{ #category : #testing }
+ViennaUnitType >> isCompatibleWith: aViennaType [
+
+	^ self = aViennaType or: [
+		  (aViennaType isChoiceType or: [ aViennaType isConstrainedType ])
+			  and: [ aViennaType isCompatibleWith: self ] ]
+]
+
 { #category : #testing }
 ViennaUnitType >> isUnitType [