[Guile-commits] 02/03: Fix compile-psyntax.scm -- canonicalize pass not needed

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit c72a0237e3bc931fa0654298a148631974c2b9b1
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Thu Apr 29 21:52:27 2021 +0200

    Fix compile-psyntax.scm -- canonicalize pass not needed
    
    * module/ice-9/compile-psyntax.scm: Remove use of canonicalization pass,
    as it's not needed.  Whoopdy!
---
 module/ice-9/compile-psyntax.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/module/ice-9/compile-psyntax.scm b/module/ice-9/compile-psyntax.scm
index 8a0b5cc..1e6400a 100644
--- a/module/ice-9/compile-psyntax.scm
+++ b/module/ice-9/compile-psyntax.scm
@@ -1,6 +1,6 @@
 ;;; -*- mode: scheme; coding: utf-8; -*-
 ;;;
-;;; Copyright (C) 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
+;;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2021 Free Software Foundation, 
Inc.
 ;;;
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -18,7 +18,6 @@
 
 (use-modules (language tree-il)
              (language tree-il primitives)
-             (language tree-il canonicalize)
              (srfi srfi-1)
              (ice-9 control)
              (ice-9 pretty-print)
@@ -167,10 +166,9 @@
             (pretty-print (tree-il->scheme
                            (translate-literal-syntax-objects
                             (squeeze-tree-il
-                             (canonicalize
-                              (resolve-primitives
-                               (macroexpand x 'c '(compile load eval))
-                               (current-module)))))
+                             (resolve-primitives
+                              (macroexpand x 'c '(compile load eval))
+                              (current-module))))
                            (current-module)
                            (list #:avoid-lambda? #f
                                  #:use-case? #f