Time a function: Difference between revisions
Content added Content deleted
| Line 101: | Line 101: | ||
{{works with|GNU Forth}} |
{{works with|GNU Forth}} |
||
: time: ( "word" -- ) |
: time: ( "word" -- ) |
||
utime 2>R ' EXECUTE |
utime 2>R ' EXECUTE |
||
utime 2R> D- |
|||
<# # # # # # # [CHAR] . HOLD #S #> TYPE ." seconds" ; |
<# # # # # # # [CHAR] . HOLD #S #> TYPE ." seconds" ; |
||