Filter out properties to check only ones exported.

src/Cryptol/REPL/Monad.hs

@@ -642,7 +642,7 @@ getTypeNames  =
 getPropertyNames :: REPL ([(M.Name,M.IfaceDecl)],NameDisp)
 getPropertyNames =
   do fe <- getFocusedEnv
-     let xs = M.ifDecls (M.mctxDecls fe)
+     let xs = Map.filterWithKey (\n _ -> Set.member n (M.mctxExported fe)) (M.ifDecls (M.mctxDecls fe))
          ps = sortBy (comparing (from . M.nameLoc . fst))
               [ (x,d) | (x,d) <- Map.toList xs,
                     T.PragmaProperty `elem` M.ifDeclPragmas d ]

tests/issues/issue1621/a.cry

@@ -0,0 +1,5 @@
+module a where
+
+private
+
+property x = True

tests/issues/issue1621/b.cry

@@ -0,0 +1,3 @@
+module b where
+
+import a

tests/issues/issue1621/issue1621.icry

@@ -0,0 +1,7 @@
+:m a
+x
+:m b
+x
+:check x
+:check a::x
+:check

tests/issues/issue1621/issue1621.icry.stdout

@@ -0,0 +1,17 @@
+Loading module Cryptol
+Loading module Cryptol
+Loading module a
+True
+Loading module Cryptol
+Loading module a
+Loading module b
+
+[error] at issue1621.icry:4:1--4:2
+    Value not in scope: x
+
+[error] at issue1621.icry:5:8--5:9
+    Value not in scope: x
+
+[error] at issue1621.icry:6:8--6:12
+    Value not in scope: a::x
+There are no properties in scope.