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

View File

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

View File

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

View File

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