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

Fix convert-cps2 for "not" primcalls

Browse source 
* module/language/tree-il/compile-cps2.scm (convert): Fix typo in "not"
  compilation.
This commit is contained in:
Andy Wingo 2015-05-08 15:44:50 +02:00
parent 0f082bd3f7
commit d99fedc5fd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/compile-cps2.scm
View file

@ -499,7 +499,7 @@
(lambda (cps args) (lambda (cps args)
(with-cps cps (with-cps cps
(letk kt ($kargs () () ($continue k src ($const #f)))) (letk kt ($kargs () () ($continue k src ($const #f))))
(letk kf ($kargs () () ($continue k src ($const #f)))) (letk kf ($kargs () () ($continue k src ($const #t))))
(build-term ($continue kf src (build-term ($continue kf src
($branch kt ($values args)))))))) ($branch kt ($values args))))))))
((and (eq? name 'list) ((and (eq? name 'list)