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

Add max and min

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-09 17:20:09 +09:00
parent 5d43fa67ed
commit 0b7363016f
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bootstrap.fs
View file

@ -769,6 +769,11 @@ alias-builtin xor ^
repeat repeat
; immediate ; immediate
\ === Integer Arithmetic (that require control flow words) ===
\ ( a b -- c )
: max 2dup > if drop else nip then ;
: min 2dup < if drop else nip then ;
\ === Multiline Comment === \ === Multiline Comment ===
: '(' [ key ( ] literal ; : '(' [ key ( ] literal ;