diff options
author | Andy Wingo <wingo@pobox.com> | 2013-07-29 21:30:49 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-08-11 16:45:31 +0200 |
commit | c1bff879980c3a2f107e8d7b54d0a6d8a18eefe4 (patch) | |
tree | c828594c18808ddd6751bf8a522f6df6dd887188 /test-suite/tests | |
parent | 056e3470c4a0c18366c1da4f5052f36761824b70 (diff) | |
download | guile-c1bff879980c3a2f107e8d7b54d0a6d8a18eefe4.tar.gz |
remove peval abort-in-tail-position optimization
* 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.
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/peval.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test index cb01b4b68..6d83fb79c 100644 --- a/test-suite/tests/peval.test +++ b/test-suite/tests/peval.test @@ -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 |