JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

dead-beef's byte arm learns arity's new ctx argument

Browse Source
This commit is contained in:
Joseph Ferano 2026-09-20 19:27:06 +07:00
parent 0a4c52d5ee
commit bbacbcb666
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/check.ml
View File

@ -5550,7 +5550,7 @@ and named_call ctx ~want loc name args =
mechanism behind it, since neither backend needs the number early. *) mechanism behind it, since neither backend needs the number early. *)
| "filled" | "dead-beef" -> | "filled" | "dead-beef" ->
let is_byte = String.equal name "filled" in let is_byte = String.equal name "filled" in
if is_byte then arity loc name 1 args if is_byte then arity ctx loc name 1 args
else if List.length args > 1 then else if List.length args > 1 then
fail loc "%s takes the pattern or nothing at all, given %d arguments" fail loc "%s takes the pattern or nothing at all, given %d arguments"
name (List.length args); name (List.length args);