mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-28 14:00:31 +02:00
Code Activity

$throw is a new kind of CPS term

Browse source 
* module/language/cps.scm ($throw): New term type that doesn't have a
  continuation.  Adapt all callers.  Remove now-unneeded
  "prune-bailouts" pass.
This commit is contained in:
Andy Wingo 2018-01-03 18:25:42 +01:00
parent de5c81b1d1
commit ad55ee83c3
26 changed files with 145 additions and 148 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/specialize-numbers.scm
View file

@ -339,7 +339,9 @@ BITS indicating the significant bits needed for a variable. BITS may be
(($ $branch kf kt src op param args)
(add-unknown-uses out args))
(($ $prompt k kh src escape? tag)
(add-unknown-use out tag)))))
(add-unknown-use out tag))
(($ $throw src op param args)
(add-unknown-uses out args)))))
(_ out)))))))))
(define (specialize-operations cps)