test 0.2.7a

main.rkt

@@ -8,7 +8,7 @@
          "credentials.rkt"
          libgit2)
 
-; gewijzigd. Nog een keer. 
+; Again.
 
 (provide git
          dgit
@@ -146,12 +146,14 @@
      0))
   callbacks)
 
-(define (set-push-progress-callback! callbacks label quiet)
-  (define report (make-progress-reporter label quiet #:bytes? #f))
+(define (set-push-progress-callback! callbacks _label _quiet)
+  ;; Diagnostic 0.2.7a: keep the libgit2 push progress callback installed,
+  ;; but do no Racket I/O (or other synchronization) from callback context.
+  ;; Racket CS runs FFI callbacks in atomic mode; writing to DrRacket's output
+  ;; port from here can therefore crash the process during a real push.
   (set-git_remote_callbacks-push_transfer_progress!
    callbacks
-   (lambda (current total bytes _payload)
-     (report current total bytes)
+   (lambda (_current _total _bytes _payload)
      0))
   callbacks)