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

swap over == tuck

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-03 12:31:08 +09:00
parent 691c02e23b
commit 8c7c3f42ee
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bootstrap.fs
View file

@ -1893,7 +1893,7 @@ variable inputstreams
: push-inputstream ( file -- ) : push-inputstream ( file -- )
inputstream% %allot \ addr inputstream% %allot \ addr
swap over input>file ! tuck input>file !
0 over input>lineno ! 0 over input>lineno !
inputstreams @ over input>next ! inputstreams @ over input>next !
inputstreams ! inputstreams !

4
lib/array.fs
View file

@ -28,8 +28,8 @@ s" Index out of range" exception constant OUT-OF-RANGE export
array% %allocate throw array% %allocate throw
( n capa addr ) ( n capa addr )
over cells allocate throw over array>buf ! over cells allocate throw over array>buf !
swap over array>capa ! tuck array>capa !
swap over array>size ! tuck array>size !
; ;
: make-array ( n -- arr ) : make-array ( n -- arr )