From 8288d4116abdd71bab0f3ed15d641220196a7e86 Mon Sep 17 00:00:00 2001 From: Sven Van Caekenberghe Date: Wed, 15 Mar 2023 17:11:41 +0100 Subject: [PATCH] Recategorize some methods in ZTimestamp --- repository/ZTimestamp-Core/ZTimestamp.class.st | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/repository/ZTimestamp-Core/ZTimestamp.class.st b/repository/ZTimestamp-Core/ZTimestamp.class.st index 2dd58fc..e7a531b 100644 --- a/repository/ZTimestamp-Core/ZTimestamp.class.st +++ b/repository/ZTimestamp-Core/ZTimestamp.class.st @@ -433,21 +433,21 @@ ZTimestamp >> - operand [ ^ operand subtractFromTimestamp: self ] -{ #category : #testing } +{ #category : #comparing } ZTimestamp >> < aZTimestamp [ "Answer true when aZTimestamp is strictly later than me, false otherwise. Part of the Magnitude protocol" - + ^ jdn = aZTimestamp julianDayNumber ifTrue: [ ns < aZTimestamp nanosecondsSinceMidnight ] ifFalse: [ jdn < aZTimestamp julianDayNumber ] ] -{ #category : #testing } +{ #category : #comparing } ZTimestamp >> = aZTimestamp [ "Answer true when aZTimestamp equals the receiver, false otherwise. Part of the Magnitude protocol" - + self == aZTimestamp ifTrue: [ ^ true ]. self class = aZTimestamp class ifFalse: [ ^ false ]. ^ jdn = aZTimestamp julianDayNumber @@ -598,11 +598,11 @@ ZTimestamp >> format: formatSpecification on: stream [ format: self on: stream ] -{ #category : #hash } +{ #category : #comparing } ZTimestamp >> hash [ "Return an Integer hash value for the receiver. Part of the Magnitude protocl" - + ^ jdn hashMultiply bitXor: ns ]