clean up casts around conds with elses (#904)

This commit is contained in:
water111
2021-10-16 12:02:49 -04:00
committed by GitHub
parent 7e91fc1f3c
commit 9225d28444
25 changed files with 712 additions and 1079 deletions
+15 -16
View File
@@ -1064,22 +1064,21 @@ TEST_F(FormRegressionTest, ExprMethod14DeadPool) {
" )\n"
" )\n"
" )\n"
" (the-as process (cond\n"
" (s4-0\n"
" (set! (-> (the-as (pointer process) s4-0) 0 type) arg1)\n"
" (-> (the-as (pointer process) s4-0) 0)\n"
" )\n"
" (else\n"
" (format\n"
" 0\n"
" \"WARNING: ~A ~A could not be allocated, because ~A was empty.~%\"\n"
" arg1\n"
" (ppointer->process (the-as (pointer process) s4-0))\n"
" (-> arg0 name)\n"
" )\n"
" (the-as process #f)\n"
" )\n"
" )\n"
" (cond\n"
" (s4-0\n"
" (set! (-> (the-as (pointer process) s4-0) 0 type) arg1)\n"
" (-> (the-as (pointer process) s4-0) 0)\n"
" )\n"
" (else\n"
" (format\n"
" 0\n"
" \"WARNING: ~A ~A could not be allocated, because ~A was empty.~%\"\n"
" arg1\n"
" (ppointer->process (the-as (pointer process) s4-0))\n"
" (-> arg0 name)\n"
" )\n"
" (the-as process #f)\n"
" )\n"
" )\n"
" )";