[lisplab-cvs] r172 - trunk/src/matrix

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sat May 22 11:17:02 2010
New Revision: 172

Log:
bugfix

Modified:
   trunk/src/matrix/level2-constructors.lisp

Modified: trunk/src/matrix/level2-constructors.lisp
==============================================================================
--- trunk/src/matrix/level2-constructors.lisp	(original)
+++ trunk/src/matrix/level2-constructors.lisp	Sat May 22 11:17:02 2010
@@ -131,11 +131,11 @@
 
 (defun mcol (type &rest args)
   "Creates a column matrix."
-  (convert (mapcar 'list args) type))
+  (mmat type (mapcar #'list args)))
 
 (defun mrow (type &rest args)
   "Creates a row matrix."
-  (convert args type))
+  (mmat type (list args)))
 
 ;;; Constructors for matrix-dge