(xdef 'len (lambda (x) (cond ((string? x) (string-length x)) ((hash-table? x) (hash-table-count x)) (#t (length (ar-nil-terminate x))))))
From ac.scm ©
ac.scm