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
parent fea1350790
commit f485c63f22
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 IN: wordtimer
SYMBOL: *wordtimes* SYMBOL: *wordtimes*
@ -15,7 +15,7 @@ SYMBOL: *calling*
rot [ + ] curry [ 1+ ] bi* ; rot [ + ] curry [ 1+ ] bi* ;
: register-time ( utime word -- ) : register-time ( utime word -- )
word-name name>>
[ lookup-word-time update-times 2array ] keep *wordtimes* get-global set-at ; [ lookup-word-time update-times 2array ] keep *wordtimes* get-global set-at ;
: calling ( word -- ) : calling ( word -- )