1 files changed, 2 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 4aa1019b..3375b15b 100644
--- a/eval.c
+++ b/eval.c
@@ -2228,6 +2228,8 @@ void eval_init(void)
   reg_fun(intern(lit("throwf"), user_package), func_n2v(uw_throwfv));
   reg_fun(error_s, func_n1v(uw_errorfv));
 
+  reg_fun(intern(lit("match-fun"), user_package), func_n4(match_fun));
+
   eval_error_s = intern(lit("eval-error"), user_package);
   uw_register_subtype(eval_error_s, error_s);
 }