diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
| commit | 3d2b30f5c8bfb4363eeb676257c738dd596e6191 (patch) | |
| tree | 0de106805a542b7ea0e5339355b9eba5711c1fed /tests/recurrence.scm | |
| parent | Improve opt parsing in test runner. (diff) | |
| download | calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.gz calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.xz | |
Merge mod!:s functionality into set!
Diffstat (limited to 'tests/recurrence.scm')
| -rw-r--r-- | tests/recurrence.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/recurrence.scm b/tests/recurrence.scm index a3720ce8..e73aa836 100644 --- a/tests/recurrence.scm +++ b/tests/recurrence.scm @@ -12,8 +12,7 @@ ((vcomponent base) make-vcomponent prop prop* extract) ((datetime) parse-ics-datetime datetime time date datetime->string) - ((util) -> mod!) - ((guile) set!) + ((util) -> set!) ((srfi srfi-41) stream->list) ((srfi srfi-88) keyword->string)) @@ -51,7 +50,7 @@ [else (cadr rem)])) ;; hack for multi valued fields (when (eq? symb 'EXDATE) - (mod! (prop* v symb) list))) + (set! (prop* v symb) = list))) (loop (cddr rem)))) v) |