diff options
author | Mark H Weaver <mhw@netris.org> | 2015-10-06 10:09:12 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2015-10-06 10:09:12 -0400 |
commit | 315adb6347c3e51f4e24fa32ff08458f2aa1b09c (patch) | |
tree | 9d123608b81a37262d72d1d8978e28e376e50929 | |
parent | 73f6146bd83045dad909f37e42306d05f3bf9d16 (diff) | |
download | guile-315adb6347c3e51f4e24fa32ff08458f2aa1b09c.tar.gz |
Fix typo in CPS conversion.
Fixes <http://bugs.gnu.org/21614>.
Reported by tantalum <sph@posteo.eu>.
* module/language/tree-il/compile-cps.scm (convert): Add missing 'cps'
argument to the continuation passed to 'convert-arg'.
-rw-r--r-- | module/language/tree-il/compile-cps.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/tree-il/compile-cps.scm b/module/language/tree-il/compile-cps.scm index 59d2d7d90..7f34e6b48 100644 --- a/module/language/tree-il/compile-cps.scm +++ b/module/language/tree-il/compile-cps.scm @@ -460,7 +460,7 @@ (($ <module-set> src mod name public? exp) (convert-arg cps exp - (lambda (val) + (lambda (cps val) (module-box cps src mod name public? #t (lambda (cps box) |