1 files changed, 5 insertions, 0 deletions
diff --git a/parser.l b/parser.l
index 4fe0e521..1d1e0643 100644
--- a/parser.l
+++ b/parser.l
@@ -621,6 +621,11 @@ void end_of_regex(void)
     yy_pop_state();
 }
 
+val source_loc(val form)
+{
+  return gethash(form_to_ln_hash, form);
+}
+
 void parse_init(void)
 {
   protect(&yyin_stream, &prepared_error_message,