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:
hyunghwan.chung
2017-04-26 03:09:55 +00:00
parent 8298bad3e0
commit 04864659a8
3 changed files with 52 additions and 20 deletions

View File

@ -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