Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-27 21:58:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add abs

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-10 17:34:23 +09:00
parent 41f6ab0bca
commit 9054a17e1b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bootstrap.fs
View file

@ -814,6 +814,8 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
: max 2dup > if drop else nip then ; : max 2dup > if drop else nip then ;
: min 2dup < if drop else nip then ; : min 2dup < if drop else nip then ;
: abs dup 0< if negate then ;
\ === Multiline Comment === \ === Multiline Comment ===
: '(' [ key ( ] literal ; : '(' [ key ( ] literal ;
@ -2424,7 +2426,7 @@ need-defined (read)
catch throw success catch throw success
: ; create :noname does> variable constant : ; create :noname does> variable constant
' ['] compile [compile] literal ' ['] compile [compile] literal
+ - * div mod negate not and or xor invert within max min + - * div mod negate not and or xor invert within max min abs
< > <= >= = <> 0< 0> 0<= 0>= 0= 0<> 1+ 1- < > <= >= = <> 0< 0> 0<= 0>= 0= 0<> 1+ 1-
true false true false