diff options
Diffstat (limited to 'src/cps.cpp')
| -rw-r--r-- | src/cps.cpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cps.cpp b/src/cps.cpp index 38dc27a..65aed78 100644 --- a/src/cps.cpp +++ b/src/cps.cpp @@ -34,7 +34,7 @@ is_value(CEnv& cenv, const AST* exp) if (!is_primitive(cenv.penv, exp)) return false; // Non-primitive fn call - + for (ATuple::const_iterator i = call->iter_at(1); i != call->end(); ++i) if (!is_value(cenv, *i)) return false; // Primitive with non-value argument |