Welcome to the CHICKEN Scheme pasting service

#>

#include <assert.h>


int vector_length(C_word vec) {
    C_return(C_i_vector_length(vec));
}

<#

(define vlen
  (foreign-lambda integer "vector_length" scheme-object ))

(define vec #(1 2 3 4 5))

(print (##core#inline "C_i_vector_length" vec) " <- Scheme length")
(print (vlen vec) " <- Wrapped C length, what?")