mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

prune-top-level-scopes elides with $values

Browse source 
* module/language/cps2/prune-top-level-scopes.scm
  (prune-top-level-scopes): Given that cache-current-module! is an
  instruction, it will always continue to a nullary $kargs, so $values
  is actually the correct replacement and not a values primcall.
This commit is contained in:
Andy Wingo 2015-06-02 12:18:44 +02:00
parent 0e33ee94f0
commit 467736c3fd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps2/prune-top-level-scopes.scm
View file

@ -57,7 +57,7 @@
(let ((val (intmap-ref constants scope))) (let ((val (intmap-ref constants scope)))
(not (intset-ref used-scopes val))))))))) (not (intset-ref used-scopes val)))))))))
(build-cont ($kargs names vars (build-cont ($kargs names vars
($continue k src ($primcall 'values ()))))) ($continue k src ($values ())))))
(_ (_
cont))) cont)))
conts))) conts)))