mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +02:00
Code Activity

$primcall always continues to $kargs

Browse source 
* module/language/cps/devirtualize-integers.scm (peel-trace): Update
  comment.
* module/language/cps/contification.scm (apply-contification): Update to
  never contify a return of $primcall to $kreceive.
* module/language/cps/verify.scm (check-arities): Require that primcalls
  continue to $kargs.
This commit is contained in:
Andy Wingo 2018-01-03 21:23:51 +01:00
parent 8248649966
commit 118f516a8b
3 changed files with 6 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/cps/devirtualize-integers.scm
View file

@ -123,7 +123,8 @@ the trace should be referenced outside of it."
(match (intmap-ref cps label)
;; We know the initial label is a $kargs, and we won't follow the
;; graph to get to $kreceive etc, so we can stop with these two
;; continuation kinds.
;; continuation kinds. (For our purposes, only $values can
;; continue to $ktail.)
(($ $ktail) (fail))
(($ $kargs names vars term)
(let* ((vars-of-interest