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

Chez Scheme: adjust optimizer test for profiling mode

Browse Source
This commit is contained in:
Matthew Flatt 2020-12-09 09:45:38 -07:00
parent e02c417de0
commit 5986bc9250
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/ChezScheme/mats/8.ms
View File

@ -9324,6 +9324,8 @@
(lambda (x) (parameterize ([optimize-level 2] [enable-cp0 #t] [#%$suppress-primitive-inlining #f] [current-eval compile])
(eval x))))
#t)
(or
(and (compile-profile) #t) ; => testfile-clo-4a was compiled with profiling, so not quite the same as below
(equivalent-expansion?
(parameterize ([optimize-level 2] [enable-cp0 #t] [#%$suppress-primitive-inlining #f])
(expand/optimize
@ -9336,7 +9338,7 @@
(#3%$invoke-library '(testfile-clo-4a) '() 'testfile-clo-4a)
(lambda (x y z)
(#2%list (#2%list x y z)
((#3%$top-level-value 'g) x y z)))))
((#3%$top-level-value 'g) x y z))))))
)
(mat lots-of-libraries