mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 13:37:57 +03:00
Hidden bindings don't print with info command.
This commit is contained in:
parent
c1e427688d
commit
570ae954e2
@ -17,8 +17,8 @@
|
||||
(list 'macro-log (list 'meta name "sig")))
|
||||
|
||||
(doc hide "Mark a binding as hidden, this will make it not print with the 'info' command.")
|
||||
(defmacro hide [name]
|
||||
(list 'meta-set! name "hide" true))
|
||||
(defmacro hidden [name]
|
||||
(list 'meta-set! name "hidden" true))
|
||||
|
||||
(doc private "Mark a binding as private, this will make it inaccessible from other modules.")
|
||||
(defmacro private [name]
|
||||
|
@ -367,7 +367,7 @@ prettyEnvironment = prettyEnvironmentIndented 0
|
||||
|
||||
prettyEnvironmentIndented :: Int -> Env -> String
|
||||
prettyEnvironmentIndented indent env =
|
||||
joinWith "\n" $ map (showBinderIndented indent) (Map.toList (envBindings env)) ++
|
||||
joinWith "\n" $ filter (/= "") (map (showBinderIndented indent) (Map.toList (envBindings env))) ++
|
||||
let modules = envUseModules env
|
||||
in if null modules
|
||||
then []
|
||||
|
Loading…
Reference in New Issue
Block a user