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

bootstrap fixes

cvs
Slava Pestov 2005-09-26 01:59:22 +00:00
parent 3f6893eb29
commit 7d5222ca73
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/bootstrap/boot-stage1.factor
View File

@ -93,8 +93,10 @@ sequences io vectors words ;
"/library/alien/aliens.factor" "/library/alien/aliens.factor"
"/library/syntax/prettyprint.factor" "/library/syntax/prettyprint.factor"
"/library/syntax/see.factor"
"/library/tools/interpreter.factor" "/library/tools/interpreter.factor"
"/library/tools/describe.factor" "/library/tools/describe.factor"
"/library/tools/debugger.factor" "/library/tools/debugger.factor"
"/library/tools/memory.factor" "/library/tools/memory.factor"
@ -105,8 +107,6 @@ sequences io vectors words ;
"/library/tools/inspector.factor" "/library/tools/inspector.factor"
"/library/test/test.factor" "/library/test/test.factor"
"/library/syntax/see.factor"
"/library/threads.factor" "/library/threads.factor"

4
library/tools/annotations.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2005 Slava Pestov. ! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license. ! See http://factor.sf.net/license.txt for BSD license.
IN: words IN: words
USING: interpreter io kernel lists math namespaces prettyprint USING: interpreter inspector io kernel lists math namespaces
sequences strings test ; prettyprint sequences strings test ;
! The annotation words let you flag a word for either tracing ! The annotation words let you flag a word for either tracing
! or single-stepping. Note that currently, words referring to ! or single-stepping. Note that currently, words referring to

8
library/tools/describe.factor
View File

@ -28,10 +28,14 @@ M: hashtable sheet dup hash-keys swap hash-values 2array ;
: format-sheet ( sheet -- list ) : format-sheet ( sheet -- list )
[ format-column ] map flip [ " " join ] map ; [ format-column ] map flip [ " " join ] map ;
: describe ( object -- ) DEFER: describe
sheet dup format-sheet swap peek
: sheet. ( sheet -- )
dup format-sheet swap peek
[ dup [ describe ] curry write-outliner ] 2each ; [ dup [ describe ] curry write-outliner ] 2each ;
: describe ( object -- ) sheet sheet. ;
: word. ( word -- ) : word. ( word -- )
dup word-name swap dup [ see ] curry write-outliner ; dup word-name swap dup [ see ] curry write-outliner ;