change remaining uses of "(call error ..." in lowering to "(call (top…

… error) ..."
strogo · Aug 22, 2013 · 0baa11b · 0baa11b
1 parent 12612a7
commit 0baa11b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/julia-syntax.scm b/src/julia-syntax.scm
@@ -1561,7 +1561,7 @@
                          (ncols (length a)))
                      `(block
                        (if (call (top !) (call (top isa) ,t Type))
-                           (call error "invalid array index"))
+                           (call (top error) "invalid array index"))
                        (= ,result (call (top Array) ,t 1 ,ncols))
                        ,@(map (lambda (x i) `(call (top setindex!) ,result ,x ,i))
                               a (cdr (iota (+ ncols 1))))
@@ -1577,7 +1577,7 @@
                (error "invalid array literal")
                `(block
                  (if (call (top !) (call (top isa) ,t Type))
-                     (call error "invalid array index"))
+                     (call (top error) "invalid array index"))
                  (= ,result (call (top Array) ,t ,nrows ,ncols))
                  ,@(apply nconc
                      (map