12 lines
191 B
Smalltalk
12 lines
191 B
Smalltalk
Extension { #name : #Integer }
|
|
|
|
{ #category : #'*Carp' }
|
|
Integer >> asCarpInteger [
|
|
^ CarpInteger number: self
|
|
]
|
|
|
|
{ #category : #'*Carp' }
|
|
Integer >> asCarpLong [
|
|
^ CarpLong number: self
|
|
]
|