HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove $void CPS expression type
[bpt/guile.git]
/
module
/
language
/
cps
/
closure-conversion.scm
diff --git
a/module/language/cps/closure-conversion.scm
b/module/language/cps/closure-conversion.scm
index
89e2090
..
90e6bdc
100644
(file)
--- a/
module/language/cps/closure-conversion.scm
+++ b/
module/language/cps/closure-conversion.scm
@@
-1,6
+1,6
@@
;;; Continuation-passing style (CPS) intermediate language (IL)
;;; Continuation-passing style (CPS) intermediate language (IL)
-;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2013, 2014
, 2015
Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@
-119,7
+119,7
@@
free
(cons var free)))
(match exp
free
(cons var free)))
(match exp
- ((or ($ $
void) ($ $
const) ($ $prim)) '())
+ ((or ($ $const) ($ $prim)) '())
(($ $call proc args)
(for-each clear-well-known! args)
(fold adjoin (adjoin proc '()) args))
(($ $call proc args)
(for-each clear-well-known! args)
(fold adjoin (adjoin proc '()) args))
@@
-448,7
+448,7
@@
bound to @var{var}, and continue with @var{body}."
src var (well-known? kfun) fun-free
body)))))))
src var (well-known? kfun) fun-free
body)))))))
- (($ $continue k src (or ($ $
void) ($ $
const) ($ $prim)))
+ (($ $continue k src (or ($ $const) ($ $prim)))
term)
(($ $continue k src ($ $fun () ($ $cont kfun)))
term)
(($ $continue k src ($ $fun () ($ $cont kfun)))