Clean up code

Makefile

@@ -138,9 +138,6 @@ gauche:
 	mv foreign-c-primitives-gauche.so foreign/c/lib/gauche.so
 	mv foreign-c-primitives-gauche.o foreign/c/lib/gauche.o
 
-gerbil:
-	@echo "Nothing to build for Gerbil"
-
 guile:
 	@echo "Nothing to build for Guile"
 

foreign/c.sld

@@ -50,13 +50,6 @@
               (scheme process-context)
               (gauche base)
               (foreign c primitives gauche)))
-    #;(gerbil
-      (import (scheme base)
-              (scheme write)
-              (scheme char)
-              (scheme file)
-              (scheme inexact)
-              (scheme process-context)))
     (guile
       (import (scheme base)
               (scheme write)
@@ -363,7 +356,6 @@
     ;(cyclone (include "c/primitives/cyclone.scm"))
     (gambit (include "c/primitives/gambit.scm"))
     (gauche (include "c/primitives/gauche/define-c-procedure.scm"))
-    ;(gerbil (include "c/primitives/gerbil.scm"))
     (guile (include "./c/primitives/guile.scm"))
     (kawa (include "c/primitives/kawa.scm"))
     (mit-scheme (include "c/primitives/mit-scheme.scm"))

foreign/c/Makefile

@@ -31,9 +31,6 @@ gauche: primitives/gauche/foreign-c-primitives-gauche.c primitives/gauche/gauche
 	mv foreign-c-primitives-gauche.o lib/gauche.o
 
 
-gerbil:
-	@echo "Nothing to build for Gerbil"
-
 guile:
 	@echo "Nothing to build for Guile"
 

foreign/c/primitives/gerbil.scm

@@ -1,29 +0,0 @@
-(define pffi-type->native-type
-  (lambda (type)
-    (error "Not defined")))
-
-(define c-bytevector?
-  (lambda (object)
-    (error "Not defined")))
-
-(define-syntax define-c-procedure
-  (syntax-rules ()
-    ((_ scheme-name shared-object c-name return-type argument-types)
-     (error "Not defined"))))
-
-(define size-of-type
-  (lambda (type)
-    (error "Not defined")))
-
-(define pffi-shared-object-load
-  (lambda (header path)
-    (error "Not defined")))
-
-(define pffi-pointer-set!
-  (lambda (pointer type offset value)
-    (let ((p pointer))
-      (error "Not defined"))))
-
-(define pffi-pointer-get
-  (lambda (pointer type offset)
-    (error "Not defined")))