diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-23 20:45:09 +0100 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-23 20:45:09 +0100 |
| commit | 362c643163db3f738582e25d117e5662f0d495cf (patch) | |
| tree | 899024018ce18cc24538f5521a3df20a0a8bbbe8 | |
| parent | 77480ae0a2372305a1e6bc01dcd738d2d31d7ef3 (diff) | |
| download | org-drill-362c643163db3f738582e25d117e5662f0d495cf.tar.gz org-drill-362c643163db3f738582e25d117e5662f0d495cf.zip | |
Fix more compile error messages
| -rw-r--r-- | org-drill.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/org-drill.el b/org-drill.el index c8d8cf5..38f3249 100644 --- a/org-drill.el +++ b/org-drill.el @@ -723,7 +723,7 @@ regardless of whether the test was successful.") (defmacro org-drill-push-end (val place) "Add VAL to the end of the sequence stored in PLACE. Return the new value." - `(setq ,place (append ,place (list ,val)))) + `(setf ,place (append ,place (list ,val)))) (defun org-drill-round-float (floatnum fix) "Round the floating point number FLOATNUM to FIX decimal places. @@ -1409,8 +1409,8 @@ of QUALITY." (org-drill-get-item-data) (if (stringp weight) (setq weight (read weight))) - (cl-destructuring-bind (next-interval repetitions ease - failures meanq total-repeats + (cl-destructuring-bind (next-interval _repetitions _ease + _failures _meanq total-repeats &optional ofmatrix) (cl-case org-drill-spaced-repetition-algorithm (sm5 (org-drill-determine-next-interval-sm5 last-interval repetitions |