lua: strip (else (raise e)) from loop-guard (SX guard re-raise hangs)

lib/lua/scoreboard.json

@@ -1,8 +1,8 @@
 {
   "totals": {
     "pass": 1,
-    "fail": 11,
-    "timeout": 4,
+    "fail": 12,
+    "timeout": 3,
     "skip": 8,
     "total": 24,
     "runnable": 16,
@@ -11,11 +11,11 @@
   "top_failure_modes": [
     [
       "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      9
+      10
     ],
     [
       "timeout",
-      4
+      3
     ],
     [
       "undefined symbol: fat\\",
@@ -43,7 +43,7 @@
       "name": "attrib.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 6224
+      "ms": 5845
     },
     {
       "name": "big.lua",
@@ -55,7 +55,7 @@
       "name": "calls.lua",
       "status": "fail",
       "reason": "undefined symbol: fat\\",
-      "ms": 5070
+      "ms": 5086
     },
     {
       "name": "checktable.lua",
@@ -67,7 +67,7 @@
       "name": "closure.lua",
       "status": "timeout",
       "reason": "per-test timeout",
-      "ms": 8004
+      "ms": 8008
     },
     {
       "name": "code.lua",
@@ -77,9 +77,9 @@
     },
     {
       "name": "constructs.lua",
-      "status": "timeout",
-      "reason": "per-test timeout",
-      "ms": 8008
+      "status": "fail",
+      "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
+      "ms": 6732
     },
     {
       "name": "db.lua",
@@ -91,13 +91,13 @@
       "name": "errors.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 3359
+      "ms": 3147
     },
     {
       "name": "events.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 7590
+      "ms": 7692
     },
     {
       "name": "files.lua",
@@ -115,13 +115,13 @@
       "name": "literals.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 1893
+      "ms": 2222
     },
     {
       "name": "locals.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"lua: attempt to call non-functio",
-      "ms": 1727
+      "ms": 1778
     },
     {
       "name": "main.lua",
@@ -133,43 +133,43 @@
       "name": "math.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 4317
+      "ms": 4400
     },
     {
       "name": "nextvar.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 7303
+      "ms": 7462
     },
     {
       "name": "pm.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 5956
+      "ms": 6198
     },
     {
       "name": "sort.lua",
       "status": "timeout",
       "reason": "per-test timeout",
-      "ms": 8003
+      "ms": 8006
     },
     {
       "name": "strings.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 4024
+      "ms": 4095
     },
     {
       "name": "vararg.lua",
       "status": "fail",
       "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
-      "ms": 2235
+      "ms": 2177
     },
     {
       "name": "verybig.lua",
       "status": "pass",
       "reason": "",
-      "ms": 566
+      "ms": 574
     }
   ]
 }

lib/lua/scoreboard.md

@@ -1,12 +1,12 @@
 # Lua-on-SX conformance scoreboard
 
 **Pass rate:** 1/16 runnable (6.2%)
-fail=11 timeout=4 skip=8 total=24
+fail=12 timeout=3 skip=8 total=24
 
 ## Top failure modes
 
-- **9x** other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\
-- **4x** timeout
+- **10x** other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\
+- **3x** timeout
 - **1x** undefined symbol: fat\
 - **1x** other: Unhandled exception: \"Unhandled exception: \\\"lua: attempt to call non-functio
 
@@ -16,25 +16,25 @@ fail=11 timeout=4 skip=8 total=24
 |---|---|---|---:|
 | all.lua | skip | driver uses dofile to chain other tests | 0 |
 | api.lua | skip | requires testC (C debug library) | 0 |
-| attrib.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 6224 |
+| attrib.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 5845 |
 | big.lua | timeout | per-test timeout | 8006 |
-| calls.lua | fail | undefined symbol: fat\ | 5070 |
+| calls.lua | fail | undefined symbol: fat\ | 5086 |
 | checktable.lua | skip | internal debug helpers | 0 |
-| closure.lua | timeout | per-test timeout | 8004 |
+| closure.lua | timeout | per-test timeout | 8008 |
 | code.lua | skip | bytecode inspection via debug library | 0 |
-| constructs.lua | timeout | per-test timeout | 8008 |
+| constructs.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 6732 |
 | db.lua | skip | debug library | 0 |
-| errors.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 3359 |
-| events.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 7590 |
+| errors.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 3147 |
+| events.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 7692 |
 | files.lua | skip | io library | 0 |
 | gc.lua | skip | collectgarbage / finalisers | 0 |
-| literals.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 1893 |
-| locals.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"lua: attempt to call non-functio | 1727 |
+| literals.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 2222 |
+| locals.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"lua: attempt to call non-functio | 1778 |
 | main.lua | skip | standalone interpreter driver | 0 |
-| math.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 4317 |
-| nextvar.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 7303 |
-| pm.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 5956 |
-| sort.lua | timeout | per-test timeout | 8003 |
-| strings.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 4024 |
-| vararg.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 2235 |
-| verybig.lua | pass | - | 566 |
+| math.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 4400 |
+| nextvar.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 7462 |
+| pm.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 6198 |
+| sort.lua | timeout | per-test timeout | 8006 |
+| strings.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 4095 |
+| vararg.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 2177 |
+| verybig.lua | pass | - | 574 |

lib/lua/transpile.sx

@@ -6,10 +6,7 @@
       (list (make-symbol "e")
         (list
           (list (make-symbol "lua-break-sentinel?") (make-symbol "e"))
-          nil)
-        (list
-          (make-symbol "else")
-          (list (make-symbol "raise") (make-symbol "e"))))
+          nil))
       body-sx)))
 
 (define