Commit a08a071e authored by sof's avatar sof
Browse files

[project @ 1998-08-15 17:51:25 by sof]

reformatted
parent 989d1443
......@@ -26,9 +26,9 @@ unpackArgv argv argc = unpack 1
where
unpack :: Int -> [FAST_STRING]
unpack n
= if (n >= argc)
then ([] :: [FAST_STRING])
else case (indexAddrOffAddr argv n) of { item ->
mkFastCharString item : unpack (n + 1)
}
| n >= argc = []
| otherwise =
case (indexAddrOffAddr argv n) of
item -> mkFastCharString item : unpack (n + 1)
\end{code}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment