Sloth
/
sloth
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove redundant optional and keyword initializers

This commit is contained in:
Juliana Rat 2023-11-07 01:44:56 -05:00
parent c6f4a197dd
commit 29c5c9b6a6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sloth/editor.scm
View File

@ -16,7 +16,7 @@
(cury #:init-value 0 #:accessor cury)
(lines-scrolled #:init-value 0 #:accessor lines-scrolled))
(define* (start-loop frontend #:optional (file #f))
(define* (start-loop frontend #:optional file)
(define state (make <sloth-state>
#:frontend frontend))
(find-file state file)
@ -114,7 +114,7 @@
(list-set! buf y
(string-delete-kth (list-ref buf y) x)))
(define* (move-cursor state #:key (x #f) (y #f) (relative? #f))
(define* (move-cursor state #:key x y relative?)
(if x (set! (curx state)
(if relative?
(+ x (curx state))