/[emacs]/emacs/lisp/calc/calc-poly.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-poly.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.4.3 by miles, Fri Nov 12 04:21:20 2004 UTC revision 1.3.4.4 by miles, Wed Dec 8 23:31:44 2004 UTC
# Line 3  Line 3 
3  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
4    
5  ;; Author: David Gillespie <daveg@synaptics.com>  ;; Author: David Gillespie <daveg@synaptics.com>
6  ;; Maintainers: D. Goel <deego@gnufans.org>  ;; Maintainer: Jay Belanger <belanger@truman.edu>
 ;;              Colin Walters <walters@debian.org>  
7    
8  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
9    
# Line 152  Line 151 
151      (math-poly-gcd pn pd)))      (math-poly-gcd pn pd)))
152    
153  ;;; Return only quotient to top of stack (nil if zero)  ;;; Return only quotient to top of stack (nil if zero)
154    
155    ;; calc-poly-div-remainder is a local variable for
156    ;; calc-poly-div (in calc-alg.el), but is used by
157    ;; calcFunc-pdiv, which is called by calc-poly-div.
158    (defvar calc-poly-div-remainder)
159    
160  (defun calcFunc-pdiv (pn pd &optional base)  (defun calcFunc-pdiv (pn pd &optional base)
161    (let* ((calc-prefer-frac t)    (let* ((calc-prefer-frac t)
162           (math-poly-modulus (math-poly-modulus pn pd))           (math-poly-modulus (math-poly-modulus pn pd))

Legend:
Removed from v.1.3.4.3  
changed lines
  Added in v.1.3.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26