mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

compile-psyntax "optimizes" psyntax-pp

Browse source 
* module/ice-9/compile-psyntax.scm (source): "Optimize" psyntax-pp
  before writing it out.

* module/ice-9/psyntax-pp.scm: Regenerated.
This commit is contained in:
Andy Wingo 2010-06-17 13:36:18 +02:00
parent 57086a19d0
commit 417ee09802
2 changed files with 14553 additions and 14679 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -17,6 +17,7 @@
;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
(use-modules (language tree-il) (use-modules (language tree-il)
(language tree-il optimize)
(ice-9 pretty-print)) (ice-9 pretty-print))
(let ((source (list-ref (command-line) 1)) (let ((source (list-ref (command-line) 1))
@ -33,7 +34,10 @@
(close-port in)) (close-port in))
(begin (begin
(pretty-print (tree-il->scheme (pretty-print (tree-il->scheme
(macroexpand x 'c '(compile load eval))) (optimize!
(macroexpand x 'c '(compile load eval))
(current-module)
'()))
out) out)
(newline out) (newline out)
(loop (read in)))))) (loop (read in))))))

29226
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because it is too large Load diff