io: fix file-truncate to return (void)

racket · Mar 3, 2019 · f720220 · abmclin · Mar 4, 2019 · mflatt
1 parent 17e873b
commit f720220
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 5 deletions.
diff --git a/racket/src/io/port/fd-port.rkt b/racket/src/io/port/fd-port.rkt
@@ -282,11 +282,9 @@
                           (rktio_set_file_size rktio
                                                (fd-output-port-fd p)
                                                pos))
-                        (cond
-                          [(rktio-error? result)
-                           (end-atomic)
-                           (raise-rktio-error 'file-truncate result  "error setting file size")]
-                          [else result]))]
+                        (when (rktio-error? result)
+                          (end-atomic)
+                          (raise-rktio-error 'file-truncate result  "error setting file size")))]
   [prop:place-message (lambda (port)
                         (lambda ()
                           (fd-port->place-message port)))])

diff --git a/vim.exe.stackdump b/vim.exe.stackdump
@@ -0,0 +1,19 @@
+Stack trace:
+Frame        Function    Args
+00180000000  0018005E0DE (00180230639, 00180230C39, 001802412F0, 000FFFFB730)
+00180000000  001800468F9 (C0C0C000008080, FF000000808080, FFFF000000FF00, 0000041ECE0)
+00180000000  00180046932 (00180230616, 000000001E7, 001802412F0, 80808000C0C0C0)
+00180000000  00180043543 (00000000000, 00180000000, 7FFEEEF8888E, 001800004EC)
+00180000000  0018006BF01 (C0C0C000008080, FF000000808080, FFFF000000FF00, FF00FF000000FF)
+00180000000  0018006CD8E (00000000000, 00000000000, 00000000000, 00000000000)
+00180000000  0018006ED24 (00000000000, 00000000008, 00000000000, 00000000000)
+006000494B0  001801372B1 (00100666960, 00000000008, 00000000000, 00000000000)
+006000494B0  0018011DE4B (00100666960, 00000000008, 00000000000, 00000000000)
+006000494B0  001004F8574 (00100577CA4, 0010066D398, 00000000000, 0010066D39C)
+006000494B0  001005872D3 (00600000008, 0010066E9E0, 00000000000, 00000000000)
+006000494B0  00100578C76 (00000000000, 0005B6756CC, 0001FABEA90, 00000010000)
+006000494B0  001005DB4DF (0017FF845B0, 0010000000E, 000FFFFCCD0, 00000000000)
+006000494B0  001005E9807 (00000000020, 001802F7920, 00180047EB8, 00180046E80)
+000FFFFCCD0  00180047F24 (00000000000, 00000000000, 00000000000, 00000000000)
+00000000000  00180045A03 (00000000000, 00000000000, 00000000000, 00000000000)
+End of stack trace (more stack frames may be present)