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

CPS will not see "not" primcalls

Browse source 
* module/language/tree-il/compile-cps.scm (convert): Remove "not"
  primcalls.

* module/language/cps/effects-analysis.scm (values):
* module/language/cps/types.scm: Remove special cases for the "not"
  primcall.
This commit is contained in:
Andy Wingo 2014-07-20 20:19:01 +02:00
parent 44954194c9
commit ae67b159bb
3 changed files with 10 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/language/tree-il/compile-cps.scm
View file

@ -363,6 +363,15 @@
(kf ($kargs () () ($continue k src ($const #f)))))
($continue kf src
($branch kt ($primcall name args)))))))))
((and (eq? name 'not) (match args ((_) #t) (_ #f)))
(convert-args args
(lambda (args)
(let-fresh (kt kf) ()
(build-cps-term
($letk ((kt ($kargs () () ($continue k src ($const #f))))
(kf ($kargs () () ($continue k src ($const #t)))))
($continue kf src
($branch kt ($values args)))))))))
((and (eq? name 'list)
(and-map (match-lambda
((or ($ <const>)