~ chicken-core (chicken-5) 811785343ef2fd77e8f35f30085326f23ad8193c

commit 811785343ef2fd77e8f35f30085326f23ad8193c
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Oct 13 06:04:31 2014 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Mon Oct 13 06:17:26 2014 +1300

    Fix misnamed location variable in %irregex-error

diff --git a/irregex-core.scm b/irregex-core.scm
index 310810a0..9d09a486 100644
--- a/irregex-core.scm
+++ b/irregex-core.scm
@@ -76,7 +76,7 @@
 (define (%irregex-error arg1 . args)
   (apply 
    error 
-   (if (symbol? loc1)
+   (if (symbol? arg1)
        (cons (string-append (symbol->string arg1) ": " (car args))
 	     (cdr args))
        args)))