|
12345678910111213141516171819202122232425 |
-
- : sconstant ( "name" str -- )
- 2>r : 2r> postpone sliteral postpone ; ;
-
- : variable! ( "name" value-n -- )
- create , ;
-
- : alloterase ( n -- )
- here over allot swap erase ;
-
- : 3dup ( a b c -- a b c a b c )
- >r 2dup r@ -rot r> ;
-
- : 3drop ( a b c -- )
- 2drop drop ;
-
- : to-string ( n -- str )
- s>d <# #s #> ;
-
- : startswith ( str prefix-str -- flag )
- 2>r over swap 2r> search IF
- drop =
- ELSE
- 3drop false
- THEN ;
|