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

Merge commit 'cc8afa2b36'

Browse source 
Conflicts:
	module/ice-9/psyntax-pp.scm
	module/language/tree-il/peval.scm
This commit is contained in:
Andy Wingo 2012-01-10 00:21:48 +01:00
commit bbc2364a3e
8 changed files with 11426 additions and 11303 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/tree-il/peval.scm
View file

@ -1,6 +1,6 @@
;;; Tree-IL partial evaluator
;; Copyright (C) 2011 Free Software Foundation, Inc.
;; Copyright (C) 2011, 2012 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
@ -1032,7 +1032,7 @@ top-level bindings from ENV and return the resulting expression."
(for-tail (list->seq src (append args (list res))))))
(else
(match (cons name (map for-value args))
(('cons x ($ <const> _ ()))
(('cons x ($ <const> _ (? (cut eq? <> '()))))
(make-primcall src 'list (list x)))
(('cons x ($ <primcall> _ 'list elts))
(make-primcall src 'list (cons x elts)))