fixing some bugs

in macro-unwind.rkt:
- in unwind-mz-let, last line, ",label" should just be "label" (no unquote)

in reconstruct.rkt
- in reconstruct-completed-define, last line, arg to attach-info should be a
quasisyntax (#`), not syntax (#')
This commit is contained in:
Stephen Chang 2011-04-04 23:38:09 -04:00
parent 348a20c0e5
commit 2227516673
2 changed files with 2 additions and 2 deletions

View File

@ -220,7 +220,7 @@
(label ([(var ...) rhs] ...) . bodies)
(with-syntax ([(rhs2 ...) (map (lambda (rhs) (unwind rhs settings)) (syntax->list #'(rhs ...)))]
[new-bodies (map (lambda (body) (unwind body settings)) (syntax->list #'bodies))])
#`(,label ([(var ...) rhs2] ...) . new-bodies))]))
#`(label ([(var ...) rhs2] ...) . new-bodies))]))
(define (unwind-local stx settings)
(kernel-syntax-case stx #f

View File

@ -682,7 +682,7 @@
vars)])
(if (= (length recon-vals) 1)
(attach-info #`(define-values #,vars #,(car recon-vals)) exp)
(attach-info #'(define-values #,vars (values #,@recon-vals)) exp))))
(attach-info #`(define-values #,vars (values #,@recon-vals)) exp))))