From 8c47f6099fd05e2feb7cb51e15d39911ef48411d Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 31 Mar 2010 21:40:20 +0200 Subject: PLT: geiser is now a regular module. --- scheme/plt/geiser.ss | 52 ++++++++-------------------------------------------- 1 file changed, 8 insertions(+), 44 deletions(-) (limited to 'scheme/plt/geiser.ss') diff --git a/scheme/plt/geiser.ss b/scheme/plt/geiser.ss index 4df9b51..9590377 100644 --- a/scheme/plt/geiser.ss +++ b/scheme/plt/geiser.ss @@ -11,49 +11,13 @@ ;;; Code: -(module geiser scheme - - (require version/utils) - (unless (version<=? "4.2" (version)) - (error 'geiser - "Mzscheme version 4.2 or better required (found ~a)" - (version))) - - (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) - - (compile-enforce-module-constants #f) - (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) - - (current-prompt-read (compose (make-repl-reader (current-prompt-read)) - current-namespace))) +(require version/utils) +(unless (version<=? "4.2" (version)) + (error 'geiser + "Mzscheme version 4.2 or better required (found ~a)" + (version))) + +(require geiser) +(geiser:init) ;;; geiser.ss ends here -- cgit v1.2.3