Invalid scope for let-syntax

[Takashi Kato]

following script should raise an unbound error

(import (rename (rnrs) (let-syntax rnrs:let-syntax)))

(define-syntax let-syntax
  (syntax-rules ()
    ((_ ((var trans) ...) expr ...)
     (let ()
       (rnrs:let-syntax ((var trans) ...) expr ...)))))

(let-syntax ((var (syntax-rules ())))
  (define bar 'bar)
  'ok)

(display bar)(newline)

[Takashi Kato]

Fixed p1env-toplevel? to return (0) #f. (Fixes #52)

→ <<cset ab89a18445c3>>