guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 04/05: prune-top-level-scopes elides with $values


From: Andy Wingo
Subject: [Guile-commits] 04/05: prune-top-level-scopes elides with $values
Date: Tue, 02 Jun 2015 10:23:03 +0000

wingo pushed a commit to branch master
in repository guile.

commit 467736c3fd1862fbe8e35f865bec10cd5f79693a
Author: Andy Wingo <address@hidden>
Date:   Tue Jun 2 12:18:44 2015 +0200

    prune-top-level-scopes elides with $values
    
    * 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.
---
 module/language/cps2/prune-top-level-scopes.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/language/cps2/prune-top-level-scopes.scm 
b/module/language/cps2/prune-top-level-scopes.scm
index 002ffa4..c737534 100644
--- a/module/language/cps2/prune-top-level-scopes.scm
+++ b/module/language/cps2/prune-top-level-scopes.scm
@@ -57,7 +57,7 @@
                                 (let ((val (intmap-ref constants scope)))
                                   (not (intset-ref used-scopes val)))))))))
           (build-cont ($kargs names vars
-                        ($continue k src ($primcall 'values ())))))
+                        ($continue k src ($values ())))))
          (_
           cont)))
      conts)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]