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

fixed let-values

Browse Source 
original commit: 9e85d7cf11580b2be03787a28178bcb8038a1bd2
This commit is contained in:
Robby Findler 1996-09-12 21:56:37 +00:00
parent 8e82ccef96
commit 26c56232f7
1 changed files with 44 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/keys.ss
View File

@ -69,8 +69,8 @@
(k (wx:message-box "no file associated with this edit"))) (k (wx:message-box "no file associated with this edit")))
(let-values ([(my-out my-in my-pid my-err) (let-values ([(my-out my-in my-pid my-err)
(apply values (process* (build-path rcs-pathname "rlog") (apply values (process* (build-path rcs-pathname "rlog")
"-L" "-R" (string-append "-l" username) filename))] "-L" "-R" (string-append "-l" username) filename))])
[(their-out their-in their-pid their-err) (let-values ([(their-out their-in their-pid their-err)
(apply values (process* (build-path rcs-pathname "rlog") (apply values (process* (build-path rcs-pathname "rlog")
"-L" "-R" "-l" filename))]) "-L" "-R" "-l" filename))])
(let ([my-lock? (not (eof-object? (read my-out)))] (let ([my-lock? (not (eof-object? (read my-out)))]
@ -112,7 +112,7 @@
(send edit load-file (send edit load-file
(send edit get-filename) (send edit get-filename)
(send edit get-file-format)) (send edit get-file-format))
(wx:message-box "Checkout Failed")))))])))))))] (wx:message-box "Checkout Failed")))))]))))))))]
[ring-bell [ring-bell
(lambda (edit event) (lambda (edit event)