diff --git a/beamer/beamer.tex b/beamer/beamer.tex
index a6459fc..701ec3a 100644
--- a/beamer/beamer.tex
+++ b/beamer/beamer.tex
@@ -122,7 +122,7 @@
 \section{Translation to C}
 \begin{frame}
 
-	Architecture similar to Arnaud's AST pretty-printer.
+	\texttt{ast\_to\_c.ml} architecture similar to Arnaud's AST pretty-printer.
 
 	\pause
 
diff --git a/src/ast_to_c.ml b/src/ast_to_c.ml
index 3769be6..53c6324 100644
--- a/src/ast_to_c.ml
+++ b/src/ast_to_c.ml
@@ -1,12 +1,5 @@
 open Ast
 
-let pp_loc fmt (start, stop) =
-  Lexing.(
-    Format.fprintf fmt "%s: <l: %d, c: %d> -- <l: %d, c: %d>"
-      start.pos_fname
-      start.pos_lnum start.pos_cnum
-      stop.pos_lnum stop.pos_cnum)
-
 type var_list_delim =
   | Base
   | Arg