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

Fix :help

db4
Slava Pestov 2008-03-16 03:43:30 -05:00
parent 254d8455a3
commit 4a4eb8b7bb
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/help/help-tests.factor Normal file
View File

@ -0,0 +1,5 @@
IN: help.tests
USING: tools.test help kernel ;
[ 3 throw ] must-fail
[ ] [ :help ] unit-test

2
extra/help/help.factor
View File

@ -136,7 +136,7 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
":edit - jump to source location (parse errors only)" print
":get ( var -- value ) accesses variables at time of the error" print
":vars - list all variables at error time";
":vars - list all variables at error time" print ;
: :help ( -- )
error get delegates [ error-help ] map [ ] subset