bootstrap fixes
parent
3f6893eb29
commit
7d5222ca73
|
|
@ -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"
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 ;
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue