diff --git a/ordinary-differential-equations/ode-system.lisp b/ordinary-differential-equations/ode-system.lisp
index 2e0490fbb9f1716097773064524dfd90c1f63981..8426c9a7ad4eae6c0a1fe2755bab52662e86f76f 100644
--- a/ordinary-differential-equations/ode-system.lisp
+++ b/ordinary-differential-equations/ode-system.lisp
@@ -1,8 +1,8 @@
;; ODE system setup
;; Liam Healy, Sun Apr 15 2007 - 14:19
-;; Time-stamp: <2010-06-30 19:57:28EDT ode-system.lisp>
+;; Time-stamp: <2011-05-04 10:25:19EDT ode-system.lisp>
;;
-;; Copyright 2007, 2008, 2009 Liam M. Healy
+;; Copyright 2007, 2008, 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
@@ -27,9 +27,13 @@
&key jacobian (scalarsp t) (stepper '+step-rk8pd+)
(absolute-error 1.0d-6) (relative-error 0.0d0))
&body body)
- "Environment for integration of ordinary differential equations."
- ;; Note: the case jacobian=nil is not properly handled yet; it
- ;; should put a null pointer into the struct that is passed to GSL.
+ "Environment for integration of ordinary differential equations when dependent variables are individually named scalars."
+ ;; Note: If the dependent variables are in a foreign array, it is
+ ;; best to call the ODE functions directly; this macro is just
+ ;; provided as a convenience if they are separate scalars.
+ ;; Note:
+ ;; the case jacobian=nil is not properly handled yet; it should put
+ ;; a null pointer into the struct that is passed to GSL.
(let ((dep (make-symbol "DEP"))
(ctime (make-symbol "CTIME"))
(cstep (make-symbol "CSTEP")))