IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2088 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-18 18:18:13 +00:00
parent 51e814eabc
commit ae37bf8dfc
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/scm/srfi/srfi-19.scm
View File

@ -226,7 +226,7 @@
((char=? ch #\7) 7) ((char=? ch #\7) 7)
((char=? ch #\8) 8) ((char=? ch #\8) 8)
((char=? ch #\9) 9) ((char=? ch #\9) 9)
(else (error "Non-integer character" ch i)))) (else (error "Non-integer character" ch i))))
;; non-public procedure ;; non-public procedure
(define (normalize-year year nowyear) (define (normalize-year year nowyear)
@ -416,7 +416,7 @@
(+ tzhour (/ tzminute 60))) (+ tzhour (/ tzminute 60)))
(erriso2 "time zone +/-" (erriso2 "time zone +/-"
pm-char index pm-char index
string))))))))))))))) string))))))))))))))))
(define (julian-day-number->string jdn) (define (julian-day-number->string jdn)
@ -474,4 +474,3 @@
(erriso "day" index string) (erriso "day" index string)
(encode-julian-day-number (encode-julian-day-number
day month year)))))))))))))))) day month year))))))))))))))))