Commits

Anonymous committed d1473fe

svn-egg-author: fprintf, not fprint (thanks, Christian)

git-svn-id: http://code.call-cc.org/svn/chicken-eggs/release/4/svn-egg-author/trunk@23406fca3e652-9b03-0410-8d7b-ac86a6ce46c4

Comments (0)

Files changed (1)

svn-update-meta.scm

 (define (ensure-meta-file-exists!)
   (let* ((metas (glob "*.meta")))
     (cond ((null? metas)
-           (fprint (current-error-port)
-                   "Error: No meta-file found! Please create one first~%")
+           (fprintf (current-error-port)
+                    "Error: No meta-file found! Please create one first~%")
            (exit 1))
           ((> (length metas) 1)
            (fprintf (current-error-port)
                      (usage 1)))
                 (else (usage 1)))))))
 
-(main (command-line-arguments))
+(main (command-line-arguments))