added the #dual modifier to method definition. a method defined with #dual is registered in both the instance side and the class side.
This commit is contained in:
@ -158,7 +158,7 @@ extend Apex
|
||||
self primitiveFailed.
|
||||
}
|
||||
|
||||
method basicAt: index
|
||||
method(#dual) basicAt: index
|
||||
{
|
||||
| perr |
|
||||
|
||||
@ -171,7 +171,7 @@ extend Apex
|
||||
else { self primitiveFailed }
|
||||
}
|
||||
|
||||
method basicAt: index put: anObject
|
||||
method(#dual) basicAt: index put: anObject
|
||||
{
|
||||
| perr |
|
||||
|
||||
@ -183,6 +183,7 @@ extend Apex
|
||||
else { self primitiveFailed }
|
||||
}
|
||||
|
||||
(*
|
||||
method(#class) basicAt: index
|
||||
{
|
||||
| perr |
|
||||
@ -194,7 +195,7 @@ extend Apex
|
||||
else { self primitiveFailed }
|
||||
}
|
||||
|
||||
method(#class) basicAt: index put: anObject
|
||||
method(#dual) basicAt: index put: anObject
|
||||
{
|
||||
| perr |
|
||||
<primitive: #_basic_at_put>
|
||||
@ -203,7 +204,7 @@ extend Apex
|
||||
if (perr == Error.Code.ERANGE) { self index: index outOfRange: (self basicSize) }
|
||||
elsif (perr == Error.Code.EPERM) { self messageProhibited: #basicAt:put: }
|
||||
else { self primitiveFailed }
|
||||
}
|
||||
}*)
|
||||
|
||||
(* ------------------------------------------------------------------
|
||||
* HASHING
|
||||
|
Reference in New Issue
Block a user