alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Separate last into current and context to progress towards vocabularies.

Browse Source
This commit is contained in:
Brad Nelson
2021-02-06 14:40:53 -08:00
parent a23e9560b0
commit c53307380b
7 changed files with 32 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ueforth/posix/posix_desktop.fs
View File

@ -1,6 +1,6 @@
( Arguments )
: 'argc ( -- a ) 'sys 8 cells + ;
: 'argv ( -- a ) 'sys 9 cells + ;
: 'argc ( -- a ) 'sys 9 cells + ;
: 'argv ( -- a ) 'sys 10 cells + ;
: argc ( -- n ) 'argc @ ;
: argv ( n -- a n ) cells 'argv @ + @ z>s ;