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

Core cleanups

slava 2006-09-13 04:48:42 +00:00
parent b8cf64bc76
commit 6d6560c6a8
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.FACTOR.txt
View File

@ -44,6 +44,7 @@
+ ui: + ui:
- better help result ranking
- page scrolling should be timer-based too - page scrolling should be timer-based too
- invoking interactor commands when interactor is busy -- still fucked - invoking interactor commands when interactor is busy -- still fucked
because of grafting and ungrafting because of grafting and ungrafting

2
library/modules.factor
View File

@ -25,7 +25,7 @@ TUPLE: module name files tests modified ;
: modified? ( file module -- ? ) : modified? ( file module -- ? )
dupd module-modified hash dupd module-modified hash
swap resource-path file-modified < ; swap resource-path file-modified [ < ] [ drop f ] if* ;
: prefix-paths ( name seq -- newseq ) : prefix-paths ( name seq -- newseq )
[ "/" swap append3 ] map-with ; [ "/" swap append3 ] map-with ;

7
library/words.factor
View File

@ -155,10 +155,11 @@ SYMBOL: bootstrapping?
: xref-words ( -- ) : xref-words ( -- )
all-words [ uses ] crossref get build-graph ; all-words [ uses ] crossref get build-graph ;
: create-vocab ( name -- vocab )
vocabularies get [ nest ] bind ;
: reveal ( word -- ) : reveal ( word -- )
vocabularies get [ dup word-name over word-vocabulary create-vocab set-hash ;
dup word-name over word-vocabulary nest set-hash
] bind ;
TUPLE: check-create name vocab ; TUPLE: check-create name vocab ;
: check-create ( name vocab -- name vocab ) : check-create ( name vocab -- name vocab )