(readdir opened-dir)))

            ((file-exists? (string-append dir "/" repo "/.git"))

             (loop res (readdir opened-dir)))

            ((and (stat (string-append dir "/" repo) #f)

                  (equal? (stat:type (stat (string-append dir "/" repo) #f)) 'directory)

                  (not (equal? repo ".git"))