suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

io: fix file-truncate to return (void)

Browse Source
This commit is contained in:
Matthew Flatt 2019-03-02 20:17:58 -07:00
parent 17e873bee8
commit f720220c41
2 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/io/port/fd-port.rkt
View File

@ -282,11 +282,9 @@
(rktio_set_file_size rktio (rktio_set_file_size rktio
(fd-output-port-fd p) (fd-output-port-fd p)
pos)) pos))
(cond (when (rktio-error? result)
[(rktio-error? result) (end-atomic)
(end-atomic) (raise-rktio-error 'file-truncate result "error setting file size")))]
(raise-rktio-error 'file-truncate result "error setting file size")]
[else result]))]
[prop:place-message (lambda (port) [prop:place-message (lambda (port)
(lambda () (lambda ()
(fd-port->place-message port)))]) (fd-port->place-message port)))])

19
vim.exe.stackdump Normal file
View File

@ -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)