1630 (define (sps->c::do-expr-define-static-vector-body define-node state 1631 id-node st-node) 1632 (let ((next-node (sps:ast:next id-node))) 1633 (sps:if next-node 1634 (cond ((sps->c::list? next-node) 1635 (sps:and 1636 (sps->c::do-expr-define-static-vector-list-header st-node 1637 state) 1638 (sps->c::do-expr-define-static-vector-exprs next-node state))) 1639 ((or (sps->c::id? next-node) (sps->c::int? next-node)) 1640 (sps->c::do-expr-define-static-vector-fixed st-node state next-node)) 1641 (else 1642 (sps->c::error:start next-node "malformed_define-static-vector") 1643 (sps->c::error:node-arg define-node) 1644 (sps->c::error:node-arg id-node) 1645 (sps->c::error:end))) 1646 (begin 1647 (sps->c::error:start define-node "missing_define-static-vector_body") 1648 (sps->c::error:node-arg id-node) 1649 (sps->c::error:end)))))