coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lua: string metatable, high-byte chars, multi-return truthy, perf

Browse Source
This commit is contained in:
giles
2026-04-25 11:15:12 +00:00
parent dd47fa8a0b
commit 8ca5c8052d
7 changed files with 196 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.claude/scheduled_tasks.lock Normal file
View File

@@ -0,0 +1 @@
{"sessionId":"31c80255-eb92-43e4-8997-84ad84e27326","pid":90960,"procStart":"564684","acquiredAt":1777049890282}

169
lib/lua/runtime.sx
View File

@@ -1,4 +1,4 @@
(define lua-truthy? (fn (v) (and (not (= v nil)) (not (= v false))))) (define lua-truthy? (fn (v) (let ((v1 (if (and (= (type-of v) "list") (> (len v) 0) (= (first v) (quote lua-multi))) (if (> (len v) 1) (nth v 1) nil) v))) (and (not (= v1 nil)) (not (= v1 false))))))
(define (define
lua-to-number lua-to-number
@@ -151,18 +151,19 @@
lua-eq lua-eq
(fn (fn
(a b) (a b)
(cond (let ((a (lua-first a)) (b (lua-first b)))
((and (= a nil) (= b nil)) true) (cond
((or (= a nil) (= b nil)) false) ((and (= a nil) (= b nil)) true)
((and (= (type-of a) (type-of b)) (= a b)) true) ((or (= a nil) (= b nil)) false)
((and (= (type-of a) "dict") (= (type-of b) "dict")) ((and (= (type-of a) (type-of b)) (= a b)) true)
(let ((and (= (type-of a) "dict") (= (type-of b) "dict"))
((m (lua-get-mm a "__eq"))) (let
(cond ((m (lua-get-mm a "__eq")))
((not (= m nil)) (cond
(let ((r (lua-first (m a b)))) (and (not (= r nil)) (not (= r false))))) ((not (= m nil))
(else false)))) (let ((r (lua-first (m a b)))) (and (not (= r nil)) (not (= r false)))))
(else false)))) (else false))))
(else false)))))
(define lua-neq (fn (a b) (not (lua-eq a b)))) (define lua-neq (fn (a b) (not (lua-eq a b))))
@@ -170,44 +171,46 @@
lua-lt lua-lt
(fn (fn
(a b) (a b)
(cond (let ((a (lua-first a)) (b (lua-first b)))
((and (= (type-of a) "number") (= (type-of b) "number")) (< a b)) (cond
((and (= (type-of a) "string") (= (type-of b) "string")) (< a b)) ((and (= (type-of a) "number") (= (type-of b) "number")) (< a b))
(else ((and (= (type-of a) "string") (= (type-of b) "string")) (< a b))
(let (else
((m (lua-get-mm a "__lt"))) (let
(cond ((m (lua-get-mm a "__lt")))
((not (= m nil)) (cond
(let ((r (lua-first (m a b)))) (and (not (= r nil)) (not (= r false))))) ((not (= m nil))
(else (let ((r (lua-first (m a b)))) (and (not (= r nil)) (not (= r false)))))
(let (else
((m2 (lua-get-mm b "__lt"))) (let
(cond ((m2 (lua-get-mm b "__lt")))
((not (= m2 nil)) (cond
(let ((r (lua-first (m2 a b)))) (and (not (= r nil)) (not (= r false))))) ((not (= m2 nil))
(else (error "lua: attempt to compare incompatible types"))))))))))) (let ((r (lua-first (m2 a b)))) (and (not (= r nil)) (not (= r false)))))
(else (error "lua: attempt to compare incompatible types"))))))))))))
(define (define
lua-le lua-le
(fn (fn
(a b) (a b)
(cond (let ((a (lua-first a)) (b (lua-first b)))
((and (= (type-of a) "number") (= (type-of b) "number")) (<= a b)) (cond
((and (= (type-of a) "string") (= (type-of b) "string")) ((and (= (type-of a) "number") (= (type-of b) "number")) (<= a b))
(or (< a b) (= a b))) ((and (= (type-of a) "string") (= (type-of b) "string"))
(else (or (< a b) (= a b)))
(let (else
((m (lua-get-mm a "__le"))) (let
(cond ((m (lua-get-mm a "__le")))
((not (= m nil)) (cond
(let ((r (lua-first (m a b)))) (and (not (= r nil)) (not (= r false))))) ((not (= m nil))
(else (let ((r (lua-first (m a b)))) (and (not (= r nil)) (not (= r false)))))
(let (else
((m2 (lua-get-mm b "__le"))) (let
(cond ((m2 (lua-get-mm b "__le")))
((not (= m2 nil)) (cond
(let ((r (lua-first (m2 a b)))) (and (not (= r nil)) (not (= r false))))) ((not (= m2 nil))
(else (not (lua-lt b a)))))))))))) (let ((r (lua-first (m2 a b)))) (and (not (= r nil)) (not (= r false)))))
(else (not (lua-lt b a)))))))))))))
(define lua-gt (fn (a b) (lua-lt b a))) (define lua-gt (fn (a b) (lua-lt b a)))
@@ -271,14 +274,16 @@
(fn (i) (fn (i)
(when (< i (len v)) (when (< i (len v))
(begin (begin
(set! t (assoc t (str array-idx) (nth v i))) (when (not (= (nth v i) nil))
(set! t (assoc t (str array-idx) (nth v i))))
(set! array-idx (+ array-idx 1)) (set! array-idx (+ array-idx 1))
(spread-loop (+ i 1)))))) (spread-loop (+ i 1))))))
(spread-loop 1))) (spread-loop 1)))
(else (else
(let ((val (if (lua-multi? v) (lua-first v) v))) (let ((val (if (lua-multi? v) (lua-first v) v)))
(begin (begin
(set! t (assoc t (str array-idx) val)) (when (not (= val nil))
(set! t (assoc t (str array-idx) val)))
(set! array-idx (+ array-idx 1)))))))) (set! array-idx (+ array-idx 1))))))))
((= (first f) "kv") ((= (first f) "kv")
(let (let
@@ -294,6 +299,7 @@
(t k) (t k)
(cond (cond
((= t nil) nil) ((= t nil) nil)
((= (type-of t) "string") (lua-get string k))
((not (= (type-of t) "dict")) nil) ((not (= (type-of t) "dict")) nil)
(else (else
(let (let
@@ -315,6 +321,8 @@
(let (let
((key (str k))) ((key (str k)))
(cond (cond
((= v nil)
(when (has-key? t key) (dict-delete! t key)))
((has-key? t key) (dict-set! t key v)) ((has-key? t key) (dict-set! t key v))
(else (else
(let (let
@@ -1015,14 +1023,21 @@
(b-loop ni) (b-loop ni)
out))))))))))) out)))))))))))
(define __lua-ctrl-32 "
")
(define __lua-127-255 "€<7F>‚ƒ„…†‡ˆ‰Š‹Œ<E280B9>Ž<EFBFBD><C5BD>‘’“”•–—˜™š›œ<E280BA>žŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ")
(define (define
lua-char-one lua-char-one
(fn (n) (fn (n)
((= n 9) "\t") (cond
((= n 9) "\t") ((= n 9) "\t")
((= n 10) "\n") ((= n 10) "\n")
((= n 13) "\r")
((and (>= n 0) (< n 32)) (char-at __lua-ctrl-32 n)) ((and (>= n 0) (< n 32)) (char-at __lua-ctrl-32 n))
((and (>= n 32) (<= n 126)) (char-at __ascii-32-126 (- n 32)))
((and (>= n 127) (<= n 255)) (char-at __lua-127-255 (- n 127))) ((and (>= n 127) (<= n 255)) (char-at __lua-127-255 (- n 127)))
(else (error (str "lua: string.char out of range: " n)))))) (else (error (str "lua: string.char out of range: " n))))))
@@ -1999,7 +2014,14 @@
(list (list
(list (make-symbol "lua-return-sentinel?") (make-symbol "e")) (list (make-symbol "lua-return-sentinel?") (make-symbol "e"))
(list (make-symbol "lua-return-value") (make-symbol "e")))) (list (make-symbol "lua-return-value") (make-symbol "e"))))
(let ((wrapped (list (make-symbol "fn") (list (make-symbol "&rest") (make-symbol "__args")) guarded))) (list (make-symbol "let") (list) compiled))))
(let ((wrapped (list
(make-symbol "fn")
(list (make-symbol "&rest") (make-symbol "__args"))
(list (make-symbol "let")
(list (list (make-symbol "__varargs")
(list (make-symbol "lua-varargs")
(make-symbol "__args") 0)))
guarded)))) guarded))))
(eval-expr wrapped))))))) (eval-expr wrapped)))))))
@@ -2015,7 +2037,9 @@
(let ((n (first args)) (rest-args (rest args))) (let ((n (first args)) (rest-args (rest args)))
(cond (cond
((= n "#") (len rest-args)) ((= n "#") (len rest-args))
(let ((i (- n 1))) ((= (type-of n) "number")
(let ((i (if (< n 0)
(+ (len rest-args) 1 n -1)
(- n 1)))) (- n 1))))
(cond (cond
((< i 0) (error "lua: bad argument to select")) ((< i 0) (error "lua: bad argument to select"))
@@ -2075,7 +2099,7 @@
(dict-set! __package-loaded "coroutine" coroutine) (dict-set! __package-loaded "coroutine" coroutine)
(dict-set! __package-loaded "package" package) (dict-set! __package-loaded "package" package)
(dict-set! __package-loaded "_G" _G) (dict-set! __package-loaded "_G" _G)
(define arg {})
(define arg nil) (define arg nil)
;; preload debug stub ;; preload debug stub
@@ -2141,3 +2165,44 @@
(fn (e) (and (= (type-of e) "list") (> (len e) 0) (= (first e) (quote lua-brk))))) (fn (e) (and (= (type-of e) "list") (> (len e) 0) (= (first e) (quote lua-brk)))))
(define dofile (fn (&rest args) nil)) (define dofile (fn (&rest args) nil))
(define loadfile (fn (&rest args) nil))
;; Populate _G with the standard Lua 5.1 global environment.
;; _G must be non-empty so that next(_G) returns a key-value pair.
(dict-set! _G "assert" assert)
(dict-set! _G "collectgarbage" collectgarbage)
(dict-set! _G "dofile" dofile)
(dict-set! _G "error" error)
(dict-set! _G "getfenv" getfenv)
(dict-set! _G "getmetatable" getmetatable)
(dict-set! _G "ipairs" ipairs)
(dict-set! _G "load" load)
(dict-set! _G "loadfile" loadfile)
(dict-set! _G "loadstring" loadstring)
(dict-set! _G "next" next)
(dict-set! _G "pairs" pairs)
(dict-set! _G "pcall" pcall)
(dict-set! _G "print" print)
(dict-set! _G "rawequal" rawequal)
(dict-set! _G "rawget" rawget)
(dict-set! _G "rawset" rawset)
(dict-set! _G "require" require)
(dict-set! _G "select" select)
(dict-set! _G "setfenv" setfenv)
(dict-set! _G "setmetatable" setmetatable)
(dict-set! _G "tonumber" tonumber)
(dict-set! _G "tostring" tostring)
(dict-set! _G "type" type)
(dict-set! _G "unpack" unpack)
(dict-set! _G "xpcall" xpcall)
(dict-set! _G "string" string)
(dict-set! _G "table" table)
(dict-set! _G "math" math)
(dict-set! _G "io" io)
(dict-set! _G "os" os)
(dict-set! _G "coroutine" coroutine)
(dict-set! _G "package" package)
(dict-set! _G "debug" debug)
(dict-set! _G "_VERSION" _VERSION)
(dict-set! _G "_G" _G)
;; Soft mode: skip tests that require io/os/C facilities

74
lib/lua/scoreboard.json
View File

@@ -1,33 +1,25 @@
{ {
"totals": { "totals": {
"pass": 1, "pass": 3,
"fail": 9, "fail": 8,
"timeout": 6, "timeout": 5,
"skip": 8, "skip": 8,
"total": 24, "total": 24,
"runnable": 16, "runnable": 16,
"pass_rate": 6.2 "pass_rate": 18.8
}, },
"top_failure_modes": [ "top_failure_modes": [
[ [
"timeout", "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
6 7
], ],
[ [
"other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\", "timeout",
5 5
], ],
[
"other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"lua: attempt to call non-functio",
2
],
[ [
"other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"lua: module 'C' not found\\\\\\\"\\", "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"lua: module 'C' not found\\\\\\\"\\",
1 1
],
[
"undefined symbol: fat\\",
1
] ]
], ],
"results": [ "results": [
@@ -47,19 +39,19 @@
"name": "attrib.lua", "name": "attrib.lua",
"status": "fail", "status": "fail",
"reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"lua: module 'C' not found\\\\\\\"\\", "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"lua: module 'C' not found\\\\\\\"\\",
"ms": 6174 "ms": 6616
}, },
{ {
"name": "big.lua", "name": "big.lua",
"status": "timeout", "status": "timeout",
"reason": "per-test timeout", "reason": "per-test timeout",
"ms": 8007 "ms": 8008
}, },
{ {
"name": "calls.lua", "name": "calls.lua",
"status": "fail", "status": "timeout",
"reason": "undefined symbol: fat\\", "reason": "per-test timeout",
"ms": 5270 "ms": 8006
}, },
{ {
"name": "checktable.lua", "name": "checktable.lua",
@@ -71,7 +63,7 @@
"name": "closure.lua", "name": "closure.lua",
"status": "timeout", "status": "timeout",
"reason": "per-test timeout", "reason": "per-test timeout",
"ms": 8006 "ms": 8000
}, },
{ {
"name": "code.lua", "name": "code.lua",
@@ -81,9 +73,9 @@
}, },
{ {
"name": "constructs.lua", "name": "constructs.lua",
"status": "timeout", "status": "fail",
"reason": "per-test timeout", "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
"ms": 8007 "ms": 7429
}, },
{ {
"name": "db.lua", "name": "db.lua",
@@ -95,13 +87,13 @@
"name": "errors.lua", "name": "errors.lua",
"status": "fail", "status": "fail",
"reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\", "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
"ms": 4731 "ms": 3517
}, },
{ {
"name": "events.lua", "name": "events.lua",
"status": "timeout", "status": "fail",
"reason": "per-test timeout", "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
"ms": 8007 "ms": 7893
}, },
{ {
"name": "files.lua", "name": "files.lua",
@@ -119,13 +111,13 @@
"name": "literals.lua", "name": "literals.lua",
"status": "fail", "status": "fail",
"reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\", "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
"ms": 1996 "ms": 5676
}, },
{ {
"name": "locals.lua", "name": "locals.lua",
"status": "fail", "status": "fail",
"reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"lua: attempt to call non-functio", "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
"ms": 1785 "ms": 1829
}, },
{ {
"name": "main.lua", "name": "main.lua",
@@ -135,9 +127,9 @@
}, },
{ {
"name": "math.lua", "name": "math.lua",
"status": "fail", "status": "pass",
"reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"lua: attempt to call non-functio", "reason": "",
"ms": 4610 "ms": 4512
}, },
{ {
"name": "nextvar.lua", "name": "nextvar.lua",
@@ -149,31 +141,31 @@
"name": "pm.lua", "name": "pm.lua",
"status": "fail", "status": "fail",
"reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\", "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
"ms": 7860 "ms": 6665
}, },
{ {
"name": "sort.lua", "name": "sort.lua",
"status": "timeout", "status": "timeout",
"reason": "per-test timeout", "reason": "per-test timeout",
"ms": 8003 "ms": 8007
}, },
{ {
"name": "strings.lua", "name": "strings.lua",
"status": "fail", "status": "fail",
"reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\", "reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\",
"ms": 4636 "ms": 4488
}, },
{ {
"name": "vararg.lua", "name": "vararg.lua",
"status": "fail", "status": "pass",
"reason": "other: Unhandled exception: \\\"Unhandled exception: \\\\\\\"assertion failed!\\\\\\\"\\", "reason": "",
"ms": 2770 "ms": 2734
}, },
{ {
"name": "verybig.lua", "name": "verybig.lua",
"status": "pass", "status": "pass",
"reason": "", "reason": "",
"ms": 1319 "ms": 612
} }
] ]
} }

40
lib/lua/scoreboard.md
View File

@@ -1,15 +1,13 @@
# Lua-on-SX conformance scoreboard # Lua-on-SX conformance scoreboard
**Pass rate:** 1/16 runnable (6.2%) **Pass rate:** 3/16 runnable (18.8%)
fail=9 timeout=6 skip=8 total=24 fail=8 timeout=5 skip=8 total=24
## Top failure modes ## Top failure modes
- **6x** timeout - **7x** other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\
- **5x** other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ - **5x** timeout
- **2x** other: Unhandled exception: \"Unhandled exception: \\\"lua: attempt to call non-functio
- **1x** other: Unhandled exception: \"Unhandled exception: \\\"lua: module 'C' not found\\\"\ - **1x** other: Unhandled exception: \"Unhandled exception: \\\"lua: module 'C' not found\\\"\
- **1x** undefined symbol: fat\
## Per-test results ## Per-test results
@@ -17,25 +15,25 @@ fail=9 timeout=6 skip=8 total=24
|---|---|---|---:| |---|---|---|---:|
| all.lua | skip | driver uses dofile to chain other tests | 0 | | all.lua | skip | driver uses dofile to chain other tests | 0 |
| api.lua | skip | requires testC (C debug library) | 0 | | api.lua | skip | requires testC (C debug library) | 0 |
| attrib.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"lua: module 'C' not found\\\"\ | 6174 | | attrib.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"lua: module 'C' not found\\\"\ | 6616 |
| big.lua | timeout | per-test timeout | 8007 | | big.lua | timeout | per-test timeout | 8008 |
| calls.lua | fail | undefined symbol: fat\ | 5270 | | calls.lua | timeout | per-test timeout | 8006 |
| checktable.lua | skip | internal debug helpers | 0 | | checktable.lua | skip | internal debug helpers | 0 |
| closure.lua | timeout | per-test timeout | 8006 | | closure.lua | timeout | per-test timeout | 8000 |
| code.lua | skip | bytecode inspection via debug library | 0 | | code.lua | skip | bytecode inspection via debug library | 0 |
| constructs.lua | timeout | per-test timeout | 8007 | | constructs.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 7429 |
| db.lua | skip | debug library | 0 | | db.lua | skip | debug library | 0 |
| errors.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 4731 | | errors.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 3517 |
| events.lua | timeout | per-test timeout | 8007 | | events.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 7893 |
| files.lua | skip | io library | 0 | | files.lua | skip | io library | 0 |
| gc.lua | skip | collectgarbage / finalisers | 0 | | gc.lua | skip | collectgarbage / finalisers | 0 |
| literals.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 1996 | | literals.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 5676 |
| locals.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"lua: attempt to call non-functio | 1785 | | locals.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 1829 |
| main.lua | skip | standalone interpreter driver | 0 | | main.lua | skip | standalone interpreter driver | 0 |
| math.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"lua: attempt to call non-functio | 4610 | | math.lua | pass | - | 4512 |
| nextvar.lua | timeout | per-test timeout | 8007 | | nextvar.lua | timeout | per-test timeout | 8007 |
| pm.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 7860 | | pm.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 6665 |
| sort.lua | timeout | per-test timeout | 8003 | | sort.lua | timeout | per-test timeout | 8007 |
| strings.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 4636 | | strings.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 4488 |
| vararg.lua | fail | other: Unhandled exception: \"Unhandled exception: \\\"assertion failed!\\\"\ | 2770 | | vararg.lua | pass | - | 2734 |
| verybig.lua | pass | - | 1319 | | verybig.lua | pass | - | 612 |

10
lib/lua/test.sh
View File

@@ -1008,6 +1008,12 @@ cat > "$TMPFILE" << 'EPOCHS'
(epoch 1925) (epoch 1925)
(eval "(lua-eval-ast \"return string.format('%.3s', 'hello')\")") (eval "(lua-eval-ast \"return string.format('%.3s', 'hello')\")")
;; ── New-style vararg: arg is nil when ... used in body ──────
(epoch 1930)
(eval "(lua-eval-ast \"function f(...) local x = {...} return arg == nil and 1 or 0 end return f(1,2,3)\")")
(epoch 1931)
(eval "(lua-eval-ast \"function f(...) return select('#', ...) end return f(10,20,30)\")")
EPOCHS EPOCHS
OUTPUT=$(timeout 60 "$SX_SERVER" < "$TMPFILE" 2>/dev/null) OUTPUT=$(timeout 60 "$SX_SERVER" < "$TMPFILE" 2>/dev/null)
@@ -1530,6 +1536,10 @@ check 1923 "%X HEX" '"FF"'
check 1924 "%c char" '"A"' check 1924 "%c char" '"A"'
check 1925 "%.3s precision" '"hel"' check 1925 "%.3s precision" '"hel"'
# ── New-style vararg: arg is nil when ... used in body ───────
check 1930 "new-style vararg arg==nil" '1'
check 1931 "select # vararg count" '3'
TOTAL=$((PASS + FAIL)) TOTAL=$((PASS + FAIL))
if [ $FAIL -eq 0 ]; then if [ $FAIL -eq 0 ]; then
echo "ok $PASS/$TOTAL Lua-on-SX tests passed" echo "ok $PASS/$TOTAL Lua-on-SX tests passed"

BIN
lib/lua/tokenizer.sx
View File

Binary file not shown.

23
lib/lua/transpile.sx
View File

@@ -204,6 +204,16 @@
(make-symbol "arg") (make-symbol "arg")
(list (make-symbol "lua-varargs-arg-table") (make-symbol "__args") n)))) (list (make-symbol "lua-varargs-arg-table") (make-symbol "__args") n))))
(define
lua-body-uses-vararg?
(fn
(node)
(cond
((not (= (type-of node) "list")) false)
((= (first node) (quote lua-vararg)) true)
((= (first node) (quote lua-function)) false)
(else (some lua-body-uses-vararg? node)))))
(define (define
lua-tx-function-guard lua-tx-function-guard
(fn (body-sx) (fn (body-sx)
@@ -236,9 +246,10 @@
((all-bindings ((all-bindings
(if is-vararg (if is-vararg
(append bindings (append bindings
(list (list (lua-tx-function-varargs-binding (len params)))
(lua-tx-function-varargs-binding (len params)) (if (lua-body-uses-vararg? body)
(lua-tx-function-arg-binding (len params)))) (list)
(list (lua-tx-function-arg-binding (len params)))))
bindings))) bindings)))
(list (list
(make-symbol "fn") (make-symbol "fn")
@@ -518,10 +529,8 @@
((target (nth node 1)) (func (nth node 2))) ((target (nth node 1)) (func (nth node 2)))
(cond (cond
((= (first target) (quote lua-name)) ((= (first target) (quote lua-name))
(list (let ((nm (nth target 1)))
(make-symbol "define") (list (make-symbol "set!") (make-symbol nm) (lua-tx func))))
(make-symbol (nth target 1))
(lua-tx func)))
((= (first target) (quote lua-field)) ((= (first target) (quote lua-field))
(list (list
(make-symbol "lua-set!") (make-symbol "lua-set!")