Anonymous user
Take notes on the command line: Difference between revisions
→{{header|Racket}}
Line 1,052:
(if (file-exists? file)
(call-with-input-file* file
(
(raise-user-error 'notes "missing ~a file" file))
(call-with-output-file* file #:exists 'append
(
(date->string (current-date) #t)
(string-join notes))))))
| |||