steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixed to use new-style accessor for word-name

db4
Phil Dawes 2008-07-08 20:32:34 +01:00 committed by Alfredo Beaumont
parent 77d45d654a
commit cf342b9a86
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/wordtimer/wordtimer.factor
View File

@ -1,4 +1,4 @@
USING: kernel sequences namespaces math assocs words arrays tools.annotations vocabs sorting prettyprint io micros math.statistics ;
USING: kernel sequences namespaces math assocs words arrays tools.annotations vocabs sorting prettyprint io micros math.statistics accessors ;
IN: wordtimer
SYMBOL: *wordtimes*
@ -15,7 +15,7 @@ SYMBOL: *calling*
rot [ + ] curry [ 1+ ] bi* ;
: register-time ( utime word -- )
word-name
name>>
[ lookup-word-time update-times 2array ] keep *wordtimes* get-global set-at ;
: calling ( word -- )