diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-02-23 11:37:06 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-02-23 11:37:06 +0100 |
| commit | 23278d07deb31cbb028df4ad789fb9ad46a05ca2 (patch) | |
| tree | 094f6b76cf4fb3bbc44f05dbbb61a8de630a77a6 /module | |
| parent | b6d3ab6c0f912c48463b597ccfa18879f550cf50 (diff) | |
Fix kfun parse-cps bug
* module/language/cps.scm (parse-cps): Fix bug parsing kfun.
Diffstat (limited to 'module')
| -rw-r--r-- | module/language/cps.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/cps.scm b/module/language/cps.scm index b66bc38c0..5d4826990 100644 --- a/module/language/cps.scm +++ b/module/language/cps.scm @@ -271,7 +271,7 @@ (build-cont ($kreceive req rest k))) (('kargs names syms body) (build-cont ($kargs names syms ,(parse-cps body)))) - (('kfun src meta self ktail kclause) + (('kfun meta self ktail kclause) (build-cont ($kfun (src exp) meta self ktail kclause))) (('ktail) (build-cont ($ktail))) |