(xdef 'sref (lambda (com val ind) ; later make ind rest arg (cond ((hash-table? com) (if (eqv? val 'nil) (hash-table-remove! com ind) (hash-table-put! com ind val))) ((string? com) (string-set! com ind val)) ((pair? com) (nth-set! com ind val)) (#t (err "Can't set reference " com ind val))) val))
From ac.scm
©