suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

same stupid bug in the old syntax

Browse Source 
svn: r9057
This commit is contained in:
Sam Tobin-Hochstadt 2008-03-22 01:48:19 +00:00
parent c914aab4ea
commit 0ee6afc2a1
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/scheme/match/gen-match.ss
View File

@ -16,6 +16,7 @@
(with-syntax ([(xs ...) (generate-temporaries exprs)] (with-syntax ([(xs ...) (generate-temporaries exprs)]
[(exprs ...) exprs] [(exprs ...) exprs]
[(fail) (generate-temporaries #'(fail))]) [(fail) (generate-temporaries #'(fail))])
;(printf "here in go ~a~n" (list (syntax-line (orig-stx)) (syntax-source (orig-stx))))
(with-syntax ([body (compile* (syntax->list #'(xs ...)) (with-syntax ([body (compile* (syntax->list #'(xs ...))
(map (lambda (pats rhs) (map (lambda (pats rhs)
(unless (= len (length (syntax->list pats))) (unless (= len (length (syntax->list pats)))

2
collects/scheme/match/parse-legacy.ss
View File

@ -71,7 +71,7 @@
(let* (;; the accessors come in reverse order (let* (;; the accessors come in reverse order
[acc (reverse acc)] [acc (reverse acc)]
;; remove the first element, if it's #f ;; remove the first element, if it's #f
[acc (if (not (car acc)) (cdr acc) acc)]) [acc (cond [(null? acc) acc] [(not (car acc)) (cdr acc)] [else acc])])
(make-Struct id pred (get-lineage #'s) acc (make-Struct id pred (get-lineage #'s) acc
(if (eq? '_ (syntax-e #'pats)) (if (eq? '_ (syntax-e #'pats))
(map make-Dummy acc) (map make-Dummy acc)