diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-07-21 17:03:51 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-07-21 21:38:17 +0200 |
| commit | 30411abf5caf98ebe8dbb7c5d63c8ba43b488d4b (patch) | |
| tree | 5ea07f06050edc95c4fe1449fed0d7b44c405e9d | |
| parent | cf7a884f125de0a44ddccbc985a96e3a6eb62b8b (diff) | |
| download | guile-30411abf5caf98ebe8dbb7c5d63c8ba43b488d4b.tar.gz | |
Fix typo in arities.scm
* module/language/cps/arities.scm (fix-arities*): Fix typo.
| -rw-r--r-- | module/language/cps/arities.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/cps/arities.scm b/module/language/cps/arities.scm index c8a9728bb..e6c5f298a 100644 --- a/module/language/cps/arities.scm +++ b/module/language/cps/arities.scm @@ -95,7 +95,7 @@ (rewrite-cps-term (lookup-cont k dfg) (($ $ktail) ,(rewrite-cps-term exp - (($values (sym)) + (($ $values (sym)) ($continue ktail src ($primcall 'return (sym)))) (_ ,(let-fresh (k*) (v) |