Changeset 18423 in project


Ignore:
Timestamp:
06/11/10 18:06:35 (10 years ago)
Author:
Moritz Heidkamp
Message:

vandusen-eval: print nicer eval error messages

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/vandusen/trunk/vandusen-eval.scm

    r18259 r18423  
    11(module vandusen-eval ()
    22
    3 (import chicken scheme extras ports)
     3(import chicken scheme extras ports data-structures)
    44(use vandusen environments srfi-18)
    55
     
    99            (define (reply-with-eval-result m expression)
    1010              (condition-case (reply-to m (format "~S" (eval (with-input-from-string expression read) env)))
    11                               (e () (reply-to m (format "error - ~A"
    12                                                         ((condition-property-accessor 'exn 'message) e))))))
     11                              (e () (reply-to m (format "Error: ~A~A"
     12                                                        (get-condition-property e 'exn 'message)
     13                                                        (let ((args (get-condition-property e 'exn 'arguments)))
     14                                                          (if (null? args)
     15                                                              ""
     16                                                              (apply conc (cons ": " args)))))))))
    1317
    1418            (command 'eval
Note: See TracChangeset for help on using the changeset viewer.