From b931fb5dbc34a1ec4b2ffae91e5c35b59d6faa36 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 9 Jan 2016 23:29:19 -0500 Subject: [PATCH] Removed FFI testing code --- scheme/load.sld | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/scheme/load.sld b/scheme/load.sld index c7563a35..139e9fc7 100644 --- a/scheme/load.sld +++ b/scheme/load.sld @@ -1,24 +1,11 @@ (define-library (scheme load) (export - prim-test ;; TODO: This is just temporary, of course load) (import (scheme base) (scheme eval) (scheme file) (scheme read)) (begin - ;; Experimenting with what an FFI could look like - ;; TODO: also need a way to add #include's, and later on compiler options (may already have that, need to check) - ;; - ;; want the signature to be similar to this: - ;; static void __lambda_0(void *data, int argc, closure _,object k_7322, object arg1_737, object arg2_736) { - ;; lambda portion is computed, so we can't include that. - ;; compiler would need to insert the "static void (lambda)" part -;; TODO: maybe break up into two args, one being the args list and the other being the function body?? - (define-c prim-test - "(void *data, int argc, closure _, object k, object arg1, object arg2)" - " return_closcall1(data, k, arg1); ") - ;; End FFI (define (load filename . env) (let ((exprs (call-with-input-file filename (lambda (port)