From b4f4e6f6cab4a59b3e650cbeddc134746e66d308 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 23 Jul 2012 10:02:00 -0700 Subject: [PATCH] editors: better error message when editing 'f', use vocab-tests-path in edit-tests. --- basis/editors/editors.factor | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor index 96bdd73359..f07483b6ab 100644 --- a/basis/editors/editors.factor +++ b/basis/editors/editors.factor @@ -36,7 +36,10 @@ M: object editor-detached? t ; dup status>> { 0 f } member? [ drop ] [ process-failed ] if ; +ERROR: invalid-location file line ; + : edit-location ( file line -- ) + over [ invalid-location ] unless [ absolute-path ] dip editor-command [ run-and-wait-for-editor ] when* ; @@ -97,7 +100,7 @@ M: word edit-docs GENERIC: edit-tests ( object -- ) -M: object edit-tests vocab-tests-file 1 edit-location ; +M: object edit-tests vocab-tests-path 1 edit-location ; M: word edit-tests vocabulary>> edit-tests ;