default resource-path

darcs
microdan 2006-02-03 21:07:25 +00:00
parent 4c5e65d213
commit 149ce89d0b
1 changed files with 4 additions and 1 deletions

View File

@ -45,7 +45,10 @@ sequences sequences-internals words ;
"Building cross-referencing database..." print
H{ } clone crossref set
recrossref
recrossref
"Setting the resource path..." print
cwd global [ "resource-path" set ] bind
[ compiled? ] word-subset length
number>string write " compiled words" print