Match on empty list instead of pattern variable on the uniquify procedure for R1 lang

book.tex

@@ -1908,8 +1908,8 @@ implement the clauses for variables and for the \key{let} form.
 
    (define (uniquify p)
      (match p
-       [(Program info e)
-        (Program info ((uniquify-exp '()) e))]
+       [(Program '() e)
+        (Program '() ((uniquify-exp '()) e))]
        )))
 \end{lstlisting}
 \caption{Skeleton for the \key{uniquify} pass.}