Miroirs/fcl
1
0
Fork 0
mirror of https://github.com/zeroflag/fcl.git synced 2024-11-16 07:47:45 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

torch

Browse source
This commit is contained in:
zeroflag 2021-07-02 14:21:11 +02:00
parent 59ccc85f92
commit c188719c08
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/main/java/com/vectron/fcl/types/Num.java
View file

@ -228,7 +228,10 @@ public class Num implements Obj, LogicOperand, ArithmeticOperand {
@Override @Override
public boolean boolValue() { public boolean boolValue() {
throw new TypeMismatched(this, "bool"); if (STRICT)
throw new TypeMismatched(this, "bool");
else
return value.longValue() != 0l;
} }
@Override @Override

3
src/main/res/raw/misc.forth
View file

@ -15,4 +15,5 @@
: ms ( n -- ) 'java.lang.Thread/sleep/l' jvm-call-static ; : ms ( n -- ) 'java.lang.Thread/sleep/l' jvm-call-static ;
: tone ( hz ms -- ) swap 'com.vectron.forthcalc.support.Tone/play/di' jvm-call-static ; : tone ( hz ms -- ) swap 'com.vectron.forthcalc.support.Tone/play/di' jvm-call-static ;
: torch ( n -- ) 'com.vectron.forthcalc.support.Torch/toggle/O' jvm-call-static ;