;; (functor (generic-vector (M ())) ()) ;; (module A * (import scheme (chicken base) (chicken gc)) (define-syntax complex-foreign-lambda (ir-macro-transformer (lambda (e i c) `(begin)))) ) ;; (module csl.zdvector = (generic-vector _csl.zdvector)) (module csl.zdvector * (import scheme (chicken base) (chicken gc)) (define-syntax complex-foreign-lambda (ir-macro-transformer (lambda (e i c) `(begin))))) ;; Local Variables: ;; compile-command: "csc -s csl.zdvector.scm -j csl.zdvector -L -lgsl -L -lgslcblas" ;; End: