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

remove peval abort-in-tail-position optimization

Browse source 
* module/language/tree-il/peval.scm (peval): Remove abort optimization;
  the CPS compiler will do much better here, and it is complicating
  things in the meantime.
This commit is contained in:
Andy Wingo 2013-07-29 21:30:49 +02:00
parent 056e3470c4
commit c1bff87998
2 changed files with 3 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/tests/peval.test
View file

@ -1272,6 +1272,9 @@
(apply (lambda (x y) (cons x y)) (list 1 2))
(primcall cons (const 1) (const 2)))
;; Disable after removal of abort-in-tail-position optimization, in
;; hopes that CPS does a uniformly better job.
#;
(pass-if-peval
(let ((t (make-prompt-tag)))
(call-with-prompt t