14 lines
407 B
Text
14 lines
407 B
Text
if not? sys\version > 0.9.0 -> panic "version too old!"
|
|
|
|
bloop: 3 - 5
|
|
|
|
switch set? 'bloop -> "variable 'bloop' is set"
|
|
-> "variable 'bloop' is not set"
|
|
|
|
if set? 'abs -> print ["the absolute value of bloop is:" abs bloop]
|
|
|
|
print [
|
|
"The sum of all globally defined integers is:"
|
|
sum map select keys symbols 'sym -> integer? var sym
|
|
'sym -> var sym
|
|
]
|