mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 15:40:38 +02:00
Code Activity

Fix compile-psyntax.scm -- canonicalize pass not needed

Browse source 
* module/ice-9/compile-psyntax.scm: Remove use of canonicalization pass,
as it's not needed.  Whoopdy!
This commit is contained in:
Andy Wingo 2021-04-29 21:52:27 +02:00
parent 8847aaec41
commit c72a0237e3
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/compile-psyntax.scm
View file

@ -1,6 +1,6 @@
;;; -*- mode: scheme; coding: utf-8; -*- ;;; -*- 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 ;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public ;;; modify it under the terms of the GNU Lesser General Public
@ -18,7 +18,6 @@
(use-modules (language tree-il) (use-modules (language tree-il)
(language tree-il primitives) (language tree-il primitives)
(language tree-il canonicalize)
(srfi srfi-1) (srfi srfi-1)
(ice-9 control) (ice-9 control)
(ice-9 pretty-print) (ice-9 pretty-print)
@ -167,10 +166,9 @@
(pretty-print (tree-il->scheme (pretty-print (tree-il->scheme
(translate-literal-syntax-objects (translate-literal-syntax-objects
(squeeze-tree-il (squeeze-tree-il
(canonicalize
(resolve-primitives (resolve-primitives
(macroexpand x 'c '(compile load eval)) (macroexpand x 'c '(compile load eval))
(current-module))))) (current-module))))
(current-module) (current-module)
(list #:avoid-lambda? #f (list #:avoid-lambda? #f
#:use-case? #f #:use-case? #f