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

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

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

revision 1.10 by jpb, Sun Nov 21 05:52:41 2004 UTC revision 1.11 by jpb, Mon Nov 29 05:58:45 2004 UTC
# Line 271  Line 271 
271                                     x))) calc-user-formula-alist))                                     x))) calc-user-formula-alist))
272       (if cmd       (if cmd
273           (progn           (progn
274             (calc-need-macros)             (require 'calc-macs)
275             (fset cmd             (fset cmd
276                   (list 'lambda                   (list 'lambda
277                         '()                         '()
# Line 1711  Line 1711 
1711  ;;; Compiling Lisp-like forms to use the math library.  ;;; Compiling Lisp-like forms to use the math library.
1712    
1713  (defun math-do-defmath (func args body)  (defun math-do-defmath (func args body)
1714    (calc-need-macros)    (require 'calc-macs)
1715    (let* ((fname (intern (concat "calcFunc-" (symbol-name func))))    (let* ((fname (intern (concat "calcFunc-" (symbol-name func))))
1716           (doc (if (stringp (car body)) (list (car body))))           (doc (if (stringp (car body)) (list (car body))))
1717           (clargs (mapcar 'math-clean-arg args))           (clargs (mapcar 'math-clean-arg args))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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