7 lines
169 B
Smalltalk
7 lines
169 B
Smalltalk
zeroDivide := [:aBlock |
|
|
[aBlock value. false] on: ZeroDivide do: [true].
|
|
].
|
|
|
|
"Testing"
|
|
zeroDivide value: [2/1] "------> false"
|
|
zeroDivide value: [2/0] "------> true"
|