Come rilevare l'eccezione di sintassi

Question

Desidero estendere srfi-78 da una macro che verifica l'eccezione di sintassi. Voglio qualcosa del genere:

#! /usr/bin/env scheme-script 
#!r6rs 

(import (rnrs) (srfi :78 lightweight-testing)) 

; the macros I want to test 
(define-syntax some-macros 
    (syntax-rules() 
    [(_) 'ok])) 

; the extension to srfi-78 
(define-syntax check-exception 
    (syntax-rules() 
     ; ... some code ... 
     )) 

; tests 

; prints "correct" or someting like that 
(check (some-macros) => 'ok) 

; should print "correct" (i. e. the test passed) 
(check-exception (some-macros 'arg)) 

; should print "error" 
; (i. e. the exception was not thrown as expected) 
(check-exception (some-macros)) 

È possibile a tutti? Altrimenti, come scriveresti i test per macrose?

So di test-read-eval-string da srfi-64. Accetta una stringa, la traduce in un modulo e valuta questo modulo nell'ambiente iniziale. Voglio una macro che valuti la forma data nell'ambiente corrente e cattura le eccezioni.

Answer 1

L'unico modo per farlo è quello di chiamare il codice tramite eval e avvolgerlo in una guardia.

Esempio:

(define (safe-eval code env) 
    (guard [e [(syntax-violation? e) (display e)]] 
    (eval code env))) 

Usage:

> (safe-eval '(let a v) (environment '(rnrs))) 
&who: let 
&message: "invalid syntax" 
&syntax: 
    form: (let a v) 
    subform: #f