- changed status to resolved
Issue #64
resolved
This is valid R7RS program but raises an error.
(import (scheme base) (scheme write)) (define-syntax extract-last (syntax-rules () ((_ (bogus ... . last)) 'last) ((_ bogus) "error"))) (define-syntax test (syntax-rules () ((_ arg) (begin (write (list '(extract-last arg) '= (extract-last arg))) (newline))))) (test (0 . 1)) ;; => 1 (test (1 0)) ;; => nil (test ()) ;; => nil (test 1) ;; => 1
Comments (1)
-
reporter - Log in to comment
Added chibi compatible layer to (compat r7rs) for providing R7RS syntax-rules. (Fixes
#64)→ <<cset d9afc23466f1>>