Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #51 from nineties/export-arshift

Browse source 
Export arshift
This commit is contained in:
Koichi NAKAMURA 2022-01-09 17:34:41 +09:00 committed by GitHub
commit c1021a54ea
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bootstrap.fs
View file

@ -616,7 +616,8 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
: nip swap drop ; \ ( a b -- b ) : nip swap drop ; \ ( a b -- b )
: over >r dup r> swap ; \ ( a b -- a b a ) : over >r dup r> swap ; \ ( a b -- a b a )
: tuck dup -rot ; \ ( a b -- b a b ) : tuck dup -rot ; \ ( a b -- b a b )
: pick cells sp@ + cell + @ ; \ ( wu ... x0 u -- xu ... x0 xu ) : pick cells sp@ + cell + @ ; \ ( xu ... x0 u -- xu ... x0 xu )
: 2drop drop drop ; \ ( a b -- ) : 2drop drop drop ; \ ( a b -- )
: 3drop 2drop drop ; \ ( a b c -- ) : 3drop 2drop drop ; \ ( a b c -- )
@ -2733,7 +2734,7 @@ variable included-list
' ['] compile compile, [compile] literal state ' ['] compile compile, [compile] literal state
+ - * /mod / mod negate not and or xor invert within max min abs + - * /mod / 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-
u< u> u<= u>= lshift rshift 2* 2/ u< u> u<= u>= lshift rshift arshift 2* 2/
true false true false