suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test for optimizer lifting with unused rest arg

Browse Source 
svn: r5793
This commit is contained in:
Matthew Flatt 2007-03-19 22:04:48 +00:00
parent 3abc1bdfa4
commit cbe41955f1
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/mzscheme/optimize.ss
View File

@ -459,6 +459,16 @@
(set! i 10)) (set! i 10))
(err/rt-test (dynamic-require 'bad-order #f)) (err/rt-test (dynamic-require 'bad-order #f))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Check lifting of a function with only an unused rest arg:
(test 1 'continue
(let/ec foo
(let ([continue (lambda extras
(foo 1))])
(+ 1 (continue)))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-with-values optimization ;; call-with-values optimization