tildetown
/
rodo
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

changed two lets into one let

main
m455 2018-04-28 09:31:39 -04:00
parent d9aea661a1
commit 22cecf9a11
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
util.rkt
View File

@ -90,8 +90,8 @@
(define (remove-item-from-file args)
(let ([removed-item
(get-removed-item (file->string-list path) args)])
(let ([new-list
(get-removed-item (file->string-list path) args)]
[new-list
(remove
(list-ref (file->string-list path) (string->number args))
(file->string-list path))])
@ -99,7 +99,7 @@
(string-join new-list "\n" #:after-last "\n")
path
#:mode 'text
#:exists 'replace))
#:exists 'replace)
(d-hash-ref messages 'item-removed-prefix)
(quote-item removed-item)
(d-hash-ref messages 'item-removed-suffix)))