cleaning up show-list function

rodo.rkt

@@ -118,24 +118,29 @@
     'no 
     '("no" "No" "n" "N")))
 
+(define (create-bullets)
+  (lambda (lst)
+    (string-append
+      bullet
+      " "
+      lst)))
+
 (define (show-list)
-  (let ([path
+  (let 
+    ([path
        (expand-user-path
          (string-append
            program-path
            program-directory
            program-file))])
-    (let ([todo-items 
+    (let 
+      ([todo-items 
          (file->lines path
                       #:mode 'text
                       #:line-mode 'linefeed)])
       (display
         (string-join
-          (map (lambda (lst)
+          (map (create-bullets) 
-                 (string-append
-                   bullet
-                   " "
-                   lst))
                todo-items) "\n")))))
 
 (define (add-item-to-file item)