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

fixed bug that prevented user from adding long strings. turns out it was just a wrapper problem. changed an error message to a nicer message

main
m455 2018-04-17 22:58:33 -04:00
parent 87b3851e0f
commit c0c817206e
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
args.rkt
View File

@ -12,16 +12,18 @@
(let (let
([args-length (vector-length args)]) ([args-length (vector-length args)])
(cond (cond
[(equal? args-length 0)
(d-hash-ref messages 'show-usage)]
[(and [(and
(equal? args-length 1) (equal? args-length 1)
(equal? (vector-member list-command args) 0)) (equal? (vector-member list-command args) 0))
(show-list)] (show-list)]
[(and [(and
(equal? (vector-ref args 0) add-command) (equal? args-length 2)
(equal? (vector-member add-command args) 0)) (equal? (vector-ref args 0) add-command))
(add-item args) (add-item args)]
(cdr (vector->list args))]
[(and [(and
(equal? args-length 2) (equal? args-length 2)

2
messages.rkt
View File

@ -40,7 +40,7 @@
"\x09number corresponds to which item to remove it.\n") "\x09number corresponds to which item to remove it.\n")
'empty-todo-list 'empty-todo-list
"Error > There is nothing in your list \n" "> There is nothing in your list \n"
'show-usage 'show-usage
(string-append (string-append