Changeset f7bdb8 in git for Singular/LIB

Timestamp:

Jun 18, 1998, 8:15:20 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

475f8be538e59007739f87b8c7a59570ceda0a84

Parents:

f22a086cfc33fa7bf2cfda6b3c231ed4d83a7d1a

Message:

* hannes: more fixes to standard.lib::quotient


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

File:

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

Singular/LIB/standard.lib

@@ -1 @@
-// $Id: standard.lib,v 1.23 1998-06-18 18:03:19 Singular Exp $
+// $Id: standard.lib,v 1.24 1998-06-18 18:15:20 Singular Exp $
 //////////////////////////////////////////////////////////////////////////////
 
-version="$Id: standard.lib,v 1.23 1998-06-18 18:03:19 Singular Exp $";
+version="$Id: standard.lib,v 1.24 1998-06-18 18:15:20 Singular Exp $";
 info="
 LIBRARY: standard.lib   PROCEDURES WHICH ARE ALWAYS LOADED AT START-UP
@@ -460 +460 @@
 }
 
-proc quotient (any m1,any m2,list #)
+proc quotient (m1,m2,list #)
 "USAGE:   quotient(m1, m2[, n]); m1, m2 two submodules of k^s,
          n (optional) integer (1<= n <=5)
@@ -469 +469 @@
      or ((typeof(m2)!="ideal") and (typeof(m2)!="module")))
   {
-    "USAGE:   quot(m1, m2[, n]); m1, m2 two submodules of k^s,";
+    "USAGE:   quotient(m1, m2[, n]); m1, m2 two submodules of k^s,";
     "         n (optional) integer (1<= n <=5)";
     "RETURN:  the quotient of m1 and m2";
@@ -477 +477 @@
   if (typeof(m1)!=typeof(m2))
   {
-    return quot(m1,m2);
+    return(quot(m1,m2));
   }
   if (size(#)>0)
@@ -483 +483 @@
     if (typeof(#[1])=="int" )
     {
-      return quot1(m1,m2,#[1]);
+      return(quot1(m1,m2,#[1]));
     }
   }
   else
   {
-    return quot1(m1,m2,2);
+    return(quot1(m1,m2,2));
   }
 }