* match.c (v_load): Fix regression introduced in 94: broken @(load).

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 217d892b..3cca3dc5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-08-29  Kaz Kylheku  <kaz@kylheku.com>
+
+	* match.c (v_load): Fix regression introduced in 94: broken @(load).
+
 2014-08-25  Kaz Kylheku  <kaz@kylheku.com>
 
 	* gc.c (top): Renamed to gc_prot_top, turned extern.
diff --git a/match.c b/match.c
index 38e23b2c..ce21d66a 100644
--- a/match.c
+++ b/match.c
@@ -3672,7 +3672,7 @@ static val v_load(match_files_ctx *c)
     val stream, name;
     parser_t parser;
 
-    open_txr_file(path, &stream, &name);
+    open_txr_file(path, &name, &stream);
     parse(stream, name, &parser);
     gc_state(gc);