intersperse added by S-liao on Wed Feb 26 14:12:35 2025
(define intersperse (lambda (lst x) (let loop ((ns lst)) (if (##core#inline "C_eqp" ns '()) ns (let ((tail (cdr ns))) (if (##core#inline "C_eqp" tail '()) ns (cons (##sys#slot ns 0) (cons x (loop tail))) ) ) ) ) ) ) remove (if (##core#inline "C_eqp" ns '()) ns like the below code (let loop ((ns lst)) (let ((tail (cdr ns))) (if (eq? tail '()) ns (cons (##sys#slot ns 0) (cons x (loop tail))) ) ) )