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

help: don't make word help create global boxes.

db4
John Benediktsson 2012-07-20 12:00:47 -07:00
parent fa0a0939f9
commit 7a615ae33b
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/help/help.factor
View File

@ -69,7 +69,7 @@ M: word article-title
[ \ $vocabulary swap 2array , ]
[ word-help % ]
[ \ $related swap 2array , ]
[ get-global [ \ $value swap 2array , ] when* ]
[ dup is-global [ get-global \ $value swap 2array , ] [ drop ] if ]
[ \ $definition swap 2array , ]
} cleave
] { } make ;

1
core/namespaces/namespaces.factor
View File

@ -47,6 +47,7 @@ PRIVATE>
: set ( value variable -- ) namespace set-at ;
: on ( variable -- ) t swap set ; inline
: off ( variable -- ) f swap set ; inline
: is-global ( variable -- ? ) global boxes>> key? ; inline
: get-global ( variable -- value ) global at ; inline
: set-global ( value variable -- ) global set-at ; inline
: change ( variable quot -- ) [ [ get ] keep ] dip dip set ; inline