Commit fa3cf584 authored by sewardj's avatar sewardj
Browse files

[project @ 2001-12-04 10:04:39 by sewardj]

Update to follow the __init_Foo -> __stginit_Foo change.
parent 3de583c7
......@@ -330,7 +330,7 @@ breakLabel s
"tbl:" -> CTbl
_ -> error ("breakLabel: " ++ show (s,k,m))
in
if head m == '_' && dropWhile (== '_') m == "init"
if head m == '_' && dropWhile (== '_') m == "stginit"
then (init k, Init)
else (m, kind)
......
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