foreign-c/foreign/c/gauche-primitives-gauche.scm

(define-module foreign.c.gauche-primitives-gauche
               (export hello))
(select-module foreign.c.gauche-primitives-gauche)
(dynamic-load "gauche-primitives-gauche")

;(define (hello) 1)