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 /module/output/terminal.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 'module/output/terminal.scm')
-rw-r--r-- | module/output/terminal.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 9092d01b..52d34331 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -142,9 +142,9 @@ (set! date (current-date) cur-event 0)) ((#\j #\J) (unless (= cur-event (1- (length events))) - (mod! cur-event 1+))) + (set! cur-event = (+ 1)))) ((#\k #\K) (unless (= cur-event 0) - (mod! cur-event 1-))) + (set! cur-event = (- 1)))) ((#\g) (set! cur-event 0)) ((#\G) (set! cur-event (1- (length events))))) |