Commit 251f4f9210c2c509f3d69fd4f5d07e69bb264447 - Robin

Small code fixes for proper lists. --HG-- branch : no_improper_lists Cat's Eye Technologies 13 years ago

2 changed file(s) with 5 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

-1

Robin/Console.lhs less more

49	49	> wMove stdScr y x
50	50	> clrToEol
51	51	> return ((x, y), Symbol "ok")),
52		> ("position", \(x, y) sender (Pair (Number xr) (Pair (Number yr) Null)) -> do
	52	> ("position", \(x, y) sender (List [Number xr, Number yr]) -> do
53	53	> let x' = fromIntegral (ratFloor xr) :: Int
54	54	> let y' = fromIntegral (ratFloor yr) :: Int
55	55	> return ((x', y'), Symbol "ok")),

-1

Robin/Module.lhs less more

47	47	> qualifyModuleEnv' name [] =
48	48	> List []
49	49	> qualifyModuleEnv' name ((List [(Symbol id), val]):rest) =
50		> append (List [(Symbol (name ++ ":" ++ id)), val]) (qualifyModuleEnv' name rest)
	50	> let
	51	> List l = qualifyModuleEnv' name rest
	52	> in
	53	> List ((List [(Symbol (name ++ ":" ++ id)), val]):l)
51	54
52	55	> loadModule :: ModuleCache -> ModuleRef -> Bool -> IO (ModuleCache, Expr)
53	56