kc3-lang/kc3

diff --git a/libc3/cfn.c b/libc3/cfn.c
index f4c4a5f..8492cc2 100644
--- a/libc3/cfn.c
+++ b/libc3/cfn.c
@@ -87,6 +87,7 @@ s_cfn * cfn_copy (const s_cfn *cfn, s_cfn *dest)
   list_copy(cfn->arg_types, &dest->arg_types);
   dest->arity = cfn->arity;
   dest->result_type = cfn->result_type;
+  dest->ptr = cfn->ptr;
   return dest;
 }
 
diff --git a/test/ic3/op.out.expected b/test/ic3/op.out.expected
index 7aac999..dc3a265 100644
--- a/test/ic3/op.out.expected
+++ b/test/ic3/op.out.expected
@@ -1,3 +1,8 @@
 quote 1 + 2
-
+quote 1 + 2 / 3
+quote 1 + 2 / 3 * 4
+quote 1 + 2 / 3 * 4 - 5
 3
+1
+4
+-1