Commit a0a332b7b63014228646da8a7da2cb9966017813

Thomas de Grivel 2024-07-14T23:31:13

fix frame_get

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/libc3/frame.c b/libc3/frame.c
index 4f73b30..ca7d064 100644
--- a/libc3/frame.c
+++ b/libc3/frame.c
@@ -61,7 +61,7 @@ const s_tag * frame_get (const s_frame *frame, const s_sym *sym)
   assert(sym);
   f = frame;
   while (f) {
-    result = binding_get(frame->bindings, sym);
+    result = binding_get(f->bindings, sym);
     if (result)
       return result;
     f = f->next;