From 94f76a1565f09d189d9f2cef6d3df7860321709e Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 23 May 2010 23:10:52 +0200 Subject: Racket support (PLT 5 needed). --- scheme/plt/geiser/main.rkt | 49 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 scheme/plt/geiser/main.rkt (limited to 'scheme/plt/geiser/main.rkt') diff --git a/scheme/plt/geiser/main.rkt b/scheme/plt/geiser/main.rkt new file mode 100644 index 0000000..f157ac6 --- /dev/null +++ b/scheme/plt/geiser/main.rkt @@ -0,0 +1,49 @@ +;;; main.ss -- exported interface for emacs + +;; Copyright (C) 2010 Jose Antonio Ortega Ruiz + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the Modified BSD License. You should +;; have received a copy of the license along with this program. If +;; not, see . + +;; Start date: Wed Mar 31, 2010 21:14 + +;;; main.ss ends here + +#lang scheme/base + +(provide geiser:eval + geiser:compile + geiser:load-file + geiser:compile-file + geiser:macroexpand + geiser:completions + geiser:module-completions + geiser:symbol-location + geiser:module-location + geiser:module-exports + geiser:autodoc + geiser:help) + +(require geiser/eval + geiser/modules + geiser/completions + geiser/locations + geiser/autodoc) + +(define (geiser:eval lang) + (lambda (form spec) (eval-in form spec lang))) +(define geiser:compile compile-in) +(define geiser:load-file load-file) +(define geiser:compile-file compile-file) +(define geiser:autodoc autodoc) +(define geiser:help get-help) +(define geiser:completions symbol-completions) +(define geiser:module-completions module-completions) +(define geiser:symbol-location symbol-location) +(define geiser:module-location module-location) +(define geiser:module-exports module-exports) +(define geiser:macroexpand macroexpand) + +;;; main.ss ends here -- cgit v1.2.3