~ chicken-core (chicken-5) 58cbee77e250c38f8954ee16247dc8036dbb76b1

commit 58cbee77e250c38f8954ee16247dc8036dbb76b1
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:15:07 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)))