Changeset f22a08 in git for Singular/LIB

Timestamp:

Jun 18, 1998, 8:03:19 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

f7bdb8d25ea232b54a420f71935785dd3cace954

Parents:

300a346b7aab2a310ad9542b7b9ed1e68c1a8be2

Message:

* hannes: could not get example from standard.lib
          some fixes to quotient


git-svn-id: file:///usr/local/Singular/svn/trunk@2202 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/standard.lib (modified) (3 diffs)

Singular/LIB/standard.lib

@@ -1 @@
-// $Id: standard.lib,v 1.22 1998-06-18 17:38:08 Singular Exp $
+// $Id: standard.lib,v 1.23 1998-06-18 18:03:19 Singular Exp $
 //////////////////////////////////////////////////////////////////////////////
 
-version="$Id: standard.lib,v 1.22 1998-06-18 17:38:08 Singular Exp $";
+version="$Id: standard.lib,v 1.23 1998-06-18 18:03:19 Singular Exp $";
 info="
 LIBRARY: standard.lib   PROCEDURES WHICH ARE ALWAYS LOADED AT START-UP
@@ -460 +460 @@
 }
 
-proc quotient (any m1,any m2,list L)
+proc quotient (any m1,any m2,list #)
 "USAGE:   quotient(m1, m2[, n]); m1, m2 two submodules of k^s,
          n (optional) integer (1<= n <=5)
@@ -479 +479 @@
     return quot(m1,m2);
   }
-  if (size(L)>0)
-  {
-    if (typeof(L[1])=="int" )
-    {
-      return quot1(m1,m2,L[1]);
+  if (size(#)>0)
+  {
+    if (typeof(#[1])=="int" )
+    {
+      return quot1(m1,m2,#[1]);
     }
   }