From 51f0fe3c261a6dcc314cb42c227009f8621dfd2b Mon Sep 17 00:00:00 2001 From: Fabio Niephaus Date: Tue, 25 May 2021 15:02:21 +0200 Subject: [PATCH] Minor improvements --- .../instance/_dispatch.arguments.ifFail..st | 2 +- .../ForeignObject.class/instance/doesNotUnderstand..st | 2 +- .../ForeignObject.class/methodProperties.json | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/TruffleSqueak-Core.package/ForeignObject.class/instance/_dispatch.arguments.ifFail..st b/src/TruffleSqueak-Core.package/ForeignObject.class/instance/_dispatch.arguments.ifFail..st index 614b662df..f74fc420e 100644 --- a/src/TruffleSqueak-Core.package/ForeignObject.class/instance/_dispatch.arguments.ifFail..st +++ b/src/TruffleSqueak-Core.package/ForeignObject.class/instance/_dispatch.arguments.ifFail..st @@ -5,7 +5,7 @@ _dispatch: member arguments: arguments ifFail: failBlock (Interop isMemberInvocable: self member: member) ifTrue: [ ^ Interop invokeMember: self member: member arguments: arguments ]. (arguments size = 1 and: [ Interop isMemberWritable: self member: member]) - ifTrue: [^ Interop writeMember: self member: member value: arguments first ]. + ifTrue: [ ^ Interop writeMember: self member: member value: arguments first ]. ^ (Interop isMemberReadable: self member: member) ifTrue: [ | result | result := Interop readMember: self member: member. diff --git a/src/TruffleSqueak-Core.package/ForeignObject.class/instance/doesNotUnderstand..st b/src/TruffleSqueak-Core.package/ForeignObject.class/instance/doesNotUnderstand..st index ddd868acc..0562d5b40 100644 --- a/src/TruffleSqueak-Core.package/ForeignObject.class/instance/doesNotUnderstand..st +++ b/src/TruffleSqueak-Core.package/ForeignObject.class/instance/doesNotUnderstand..st @@ -4,4 +4,4 @@ doesNotUnderstand: aMessage identifier := aMessage selector asString copyUpTo: $:. arguments := aMessage arguments. ^ self _dispatch: identifier arguments: arguments - ifFail: [ ^ super doesNotUnderstand: aMessage ]. \ No newline at end of file + ifFail: [ super doesNotUnderstand: aMessage ]. \ No newline at end of file diff --git a/src/TruffleSqueak-Core.package/ForeignObject.class/methodProperties.json b/src/TruffleSqueak-Core.package/ForeignObject.class/methodProperties.json index eababcb54..5dbc10676 100644 --- a/src/TruffleSqueak-Core.package/ForeignObject.class/methodProperties.json +++ b/src/TruffleSqueak-Core.package/ForeignObject.class/methodProperties.json @@ -16,7 +16,7 @@ "==" : "fn 11/18/2020 15:45", ">" : "fn 8/2/2019 09:14", ">=" : "fn 8/2/2019 09:14", - "_dispatch:arguments:ifFail:" : "fn 3/30/2021 16:40", + "_dispatch:arguments:ifFail:" : "fn 5/25/2021 13:52", "_dispatch:ifFail:" : "fn 8/2/2019 17:02", "_redirect:" : "fn 8/2/2019 17:02", "adaptToNumber:andSend:" : "fn 11/11/2019 22:07", @@ -43,7 +43,7 @@ "copy" : "fn 8/2/2019 16:59", "deepCopy" : "fn 8/2/2019 16:59", "defaultLabelForInspector" : "fn 5/6/2020 16:57", - "doesNotUnderstand:" : "fn 8/2/2019 17:02", + "doesNotUnderstand:" : "fn 5/25/2021 13:52", "explorableMembers" : "fn 2/11/2021 10:51", "explorerContents" : "fn 2/11/2021 15:47", "getSource" : "fn 7/17/2020 15:22",