13 lines
317 B
Text
13 lines
317 B
Text
#import std
|
|
#import flo
|
|
#import lag
|
|
|
|
maybe_abs = math.|fabs (%QI flo)-:~&! 'abs'
|
|
|
|
#preprocess version==-[0.10.2]-?\<'wrong version'>!% *^0 ||~& -&
|
|
-&~&vitB,~&d.lexeme=='=',~&vhd.lexeme=='bloop',~&vthd.lexeme=='(evaluated)'&-,
|
|
&vthd.semantics:= !+ !+ maybe_abs+ ~&vthd.semantics.&iNHiNH&-
|
|
|
|
#cast %e
|
|
|
|
bloop = -1.
|