X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fparser%2Futil.c;fp=ghc%2Fcompiler%2Fparser%2Futil.c;h=6c0ebfb7d122a096aa612e0ae30e42e5ab35cf9f;hb=7e602b0a11e567fcb035d1afd34015aebcf9a577;hp=0b8c765cfc57a922a771d3bd0481507d8661746b;hpb=139f0fd30e19f934aa51885a52b8e5d7c24ee460;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/util.c b/ghc/compiler/parser/util.c
index 0b8c765..6c0ebfb 100644
--- a/ghc/compiler/parser/util.c
+++ b/ghc/compiler/parser/util.c
@@ -102,6 +102,7 @@ error(s)
 	exit(1);
 }
 
+/* lconc l1 l2 appends l2 to the end of l1 */
 list
 lconc(l1, l2)
   list l1;
@@ -117,6 +118,7 @@ lconc(l1, l2)
 	return(l1);
 }
 
+/* lapp( l, x ) appends [x] to the end of list l */
 list
 lapp(list l1, VOID_STAR l2)
 {