Browse files

Update master

  • Loading branch information...
1 parent 9df8b24 commit 7e4cac37130ec8eb8fc1ba5c823efc032397f60c @fogus fogus committed Jun 30, 2012
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/Refs.hs
View
3 src/Refs.hs
@@ -26,6 +26,9 @@ isBound :: Env -> String -> IO Bool
isBound envRef var = readIORef envRef >>= return . maybe False (const True) . lookup var
-- retrieve the current value of a variable
+-- todo namespacing via scheme-48 modules
+-- todo core and user ns by default
+-- todo research s48 and ml module systems
getVar :: Env -> String -> IOThrowsError LispVal
getVar envRef var = do env <- liftIO $ readIORef envRef

0 comments on commit 7e4cac3

Please sign in to comment.