getActivation :: (MVar Double) -> [LispVal] -> IO LispVal
getActivation stvar [] = fmap Float (readMVar stvar)
getActivation :: (MVar Double) -> [LispVal] -> IO LispVal
getActivation stvar [] = fmap Float (readMVar stvar)
getActivation stvar [] = fmap Float (readMVar stvar)