4 lines
130 B
Smalltalk
4 lines
130 B
Smalltalk
|a b result|
|
|
a := 10. b := 0.
|
|
result := [a / b] on:ZeroDivide do:[:ex | ex proceedWith:Float infinity].
|
|
Transcript showCR:result.
|