parser: fix test and docs

diff --git a/core/parser/parser-docs.factor b/core/parser/parser-docs.factor
index 050b152f79361f0ec3c13b9403dd4c352d772d2d..758a6c1e3496b90ed186756ea9f6c6872af5107c 100644 (file)
--- a/core/parser/parser-docs.factor
+++ b/core/parser/parser-docs.factor
@@ -113,7 +113,7 @@ $nl
 ABOUT: "parser"
 
 HELP: location
-{ $values { "loc" "a " { $snippet "{ path line# }" } " pair" } }
+{ $values { "loc/f" "a " { $snippet "{ path line# }" } " pair or " { $link f } } }
 { $description "Outputs the current parser location. This value can be passed to " { $link set-where } " or " { $link remember-definition } "." } ;
 
 HELP: save-location

diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor
index c2d86629198a6c63f5c38ee053ebd7a470d69db5..577a1ef9e4e9ce4c71a2ad59abc5f97744bb5397 100644 (file)
--- a/core/parser/parser-tests.factor
+++ b/core/parser/parser-tests.factor
@@ -659,6 +659,11 @@ EXCLUDE: qualified.tests.bar => x ;
 ] unit-test
 
 ! Ensure this works when not from a source file
-[
-    "abcde" create-class-in \ tuple { "a" "b" "c" "d" "e" } define-tuple-class
-] with-compilation-unit
\ No newline at end of file
+{ } [
+    [[
+        [
+            USING: classes.parser classes.tuple compiler.units kernel ;
+            IN: parser.tests "abcde" create-class-in \ tuple { "a" "b" "c" "d" "e" } define-tuple-class
+        ] with-compilation-unit
+    ]] eval( -- )
+] unit-test