Miroirs/sallyforth
1
0
Fork 0
mirror of https://github.com/russolsen/sallyforth synced 2024-12-25 21:58:18 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add empty set and map words.

Browse source
This commit is contained in:
Russ Olsen 2020-04-18 18:44:22 -04:00
parent 502f120d7b
commit 8d4375dbf1
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sallyforth/startup.sf
View file

@ -42,6 +42,8 @@
: { map-marker ; : { map-marker ;
: } map-marker [list] list->map ; : } map-marker [list] list->map ;
: {} ( -- <empty map>) { } ;
'set-marker unique def 'set-marker unique def
: {{ set-marker ; : {{ set-marker ;
: }} : }}
@ -50,6 +52,8 @@
builtins.set !! \ Call set with 1 argument builtins.set !! \ Call set with 1 argument
; ;
: {{}} ( -- <empty set>) {{ }} ;
: type (x -- type-of-x) 1 ->list builtins.type !! ; : type (x -- type-of-x) 1 ->list builtins.type !! ;
: px0 (mod fname -- result) [] px ; : px0 (mod fname -- result) [] px ;