diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-21 00:23:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-22 18:24:14 +0200 |
| commit | 9c0cd729b5c1bf3eb6dae70f636d707e5058fafa (patch) | |
| tree | 0892005aeba3223244342d052ea54a84ce188a42 /module/vcomponent/recurrence/generate.scm | |
| parent | map takes 2 arguments... (diff) | |
| download | calp-9c0cd729b5c1bf3eb6dae70f636d707e5058fafa.tar.gz calp-9c0cd729b5c1bf3eb6dae70f636d707e5058fafa.tar.xz | |
Remove define-quick-record macros.
Diffstat (limited to 'module/vcomponent/recurrence/generate.scm')
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index c03a935a..1ff3cc49 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -128,8 +128,7 @@ ((e r) (list (next-event e r) (if (count r) - ;; Note that this doesn't modify, since r is immutable. - (mod! (count r) 1-) + (set (count r) = (- 1)) r )))) ;; Seed |