mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Constant folding for (list) and (vector) in peval

Browse source 
* module/language/tree-il/peval.scm (peval): Add cases for (list) -> '()
  and (vector) -> #().
This commit is contained in:
Andy Wingo 2014-06-08 14:46:18 +02:00
parent fab18c02e8
commit 803a1ee7c7
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1249,6 +1249,10 @@ top-level bindings from ENV and return the resulting expression."
(make-primcall src 'list (list x)))
(('cons x ($ <primcall> _ 'list elts))
(make-primcall src 'list (cons x elts)))
(('list)
(make-const src '()))
(('vector)
(make-const src '#()))
((name . args)
(make-primcall src name args))))))