From e48d59af292ca82e77733070cf3444ac2e0ba7df Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 10 Feb 2009 23:33:21 +0100 Subject: Guile scheme files moved to scheme/guile. --- scheme/geiser/eval.scm | 65 -------------------------------------------------- 1 file changed, 65 deletions(-) delete mode 100644 scheme/geiser/eval.scm (limited to 'scheme/geiser/eval.scm') diff --git a/scheme/geiser/eval.scm b/scheme/geiser/eval.scm deleted file mode 100644 index b7c5eef..0000000 --- a/scheme/geiser/eval.scm +++ /dev/null @@ -1,65 +0,0 @@ -;; eval.scm -- evaluation procedures - -;; Copyright (C) 2009 Jose Antonio Ortega Ruiz - -;; Author: Jose Antonio Ortega Ruiz -;; Start date: Fri Feb 06, 2009 22:54 - -;; This file is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 3 of the License, or -;; (at your option) any later version. - -;; This file is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;;; Comentary: - -;; Module defining evaluation procedures called from the Emacs side. - -;;; Code: - -(define-module (geiser eval) - #:export (eval-in) - #:use-module (srfi srfi-1)) - -(define (eval-in form module-name) - "Evals FORM in the module designated by MODULE-NAME. -If MODULE-NAME is #f or resolution fails, the current module is used instead. -The result is a list of the form ((RESULT . ) (OUTPUT . )) -if no evaluation error happens, or ((ERROR (KEY . ) ...)) -in case of errors. Each error arg is a cons (NAME . VALUE), where NAME includes -SUBR, MSG and REST." - (let ((module (or (and module-name (resolve-module module-name)) - (current-module)))) - (catch #t - (lambda () - (let* ((result #f) - (output - (with-output-to-string - (lambda () - (save-module-excursion - (lambda () - (set-current-module module) - (set! result (compile form)))))))) - (list (cons 'result result) (cons 'output output)))) - (lambda (key . args) - (list (cons 'error (apply parse-error (cons key args)))))))) - -(define (parse-error key . args) - (let* ((len (length args)) - (subr (and (> len 0) (first args))) - (msg (and (> len 1) (second args))) - (margs (and (> len 2) (third args))) - (rest (and (> len 3) (fourth args)))) - (list (cons 'key key) - (cons 'subr (or subr '())) - (cons 'msg (if msg (apply format (cons #f (cons msg margs))) '())) - (cons 'rest (or rest '()))))) - -;;; eval.scm ends here -- cgit v1.2.3