diff options
| -rw-r--r-- | 076continuation.cc | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/076continuation.cc b/076continuation.cc index 38e0185b..54037b41 100644 --- a/076continuation.cc +++ b/076continuation.cc @@ -118,6 +118,9 @@ CALL_WITH_CONTINUATION_MARK, Recipe_ordinal["call-with-continuation-mark"] = CALL_WITH_CONTINUATION_MARK; :(before "End Primitive Recipe Checks") case CALL_WITH_CONTINUATION_MARK: { + if (SIZE(inst.ingredients) < 2) { + raise << maybe(get(Recipe, r).name) << "'" << to_original_string(inst) << "' requires at least two ingredients: a mark number and a recipe to call\n" << end(); + } break; } :(before "End Primitive Recipe Implementations") |