Fixed Not_found in call compilation

This commit is contained in:
Roman Venediktov 2024-07-10 15:12:15 +02:00
parent 16d9f06afb
commit 2728488b9b
2 changed files with 2 additions and 2 deletions

View file

@ -560,7 +560,7 @@ let compile_call env ?fname nargs tail =
in in
let add_argc_counter = let add_argc_counter =
let argc_before_vararg = let argc_before_vararg =
Option.map (fun fname -> List.assoc fname vararg_functions) fname Option.bind fname (fun fname -> List.assoc_opt fname vararg_functions)
in in
match argc_before_vararg with match argc_before_vararg with
(* For vararg functions we add counter of only vararg argumnets. (* For vararg functions we add counter of only vararg argumnets.

View file

@ -2,7 +2,7 @@ SHELL := /bin/bash
FILES=$(wildcard *.lama) FILES=$(wildcard *.lama)
ALL=$(sort $(FILES:.lama=.o)) ALL=$(sort $(FILES:.lama=.o))
LAMAC=../src/lamac -g LAMAC=../src/lamac
all: $(ALL) all: $(ALL)