Starting Finnish for new API

This commit is contained in:
aarne
2003-12-19 16:57:48 +00:00
parent 08c9a2ab8c
commit 9127333575
5 changed files with 65 additions and 11 deletions

View File

@@ -168,8 +168,8 @@ execCommand env c s = case c of
return (env', state1)
-}
---- CCEnvOn name -> return (languageOn (language name) env,s)
---- CCEnvOff name -> return (languageOff (language name) env,s)
CCEnvOn name -> return (env,s) ---- return (languageOn (language name) env,s)
CCEnvOff name -> return (env,s) ---- return (languageOff (language name) env,s)
-- this command is improved by the use of IO
CRefineRandom -> do