Fix erroneous quotation in scheme string of last commit

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@19310 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2010-06-28 14:56:12 +00:00
parent f4a684f0fd
commit 84d8a07dc5

View File

@ -76,7 +76,7 @@
;; list of files in the directory ;; list of files in the directory
(define (directory-files dir) (define (directory-files dir)
(let ((fname-regexp (make-regexp "\.scm$")) ;; Regexp that matches the desired filenames (let ((fname-regexp (make-regexp "\\.scm$")) ;; Regexp that matches the desired filenames
(dir-stream (opendir dir))) (dir-stream (opendir dir)))
(let loop ((fname (readdir dir-stream)) (let loop ((fname (readdir dir-stream))
(acc '()) (acc '())