diff --git a/sallyforth/startup.sf b/sallyforth/startup.sf index 0e105b6..a07536a 100644 --- a/sallyforth/startup.sf +++ b/sallyforth/startup.sf @@ -42,6 +42,8 @@ : { map-marker ; : } map-marker [list] list->map ; +: {} ( -- ) { } ; + 'set-marker unique def : {{ set-marker ; : }} @@ -50,6 +52,8 @@ builtins.set !! \ Call set with 1 argument ; +: {{}} ( -- ) {{ }} ; + : type (x -- type-of-x) 1 ->list builtins.type !! ; : px0 (mod fname -- result) [] px ;