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

certify in one more place

Browse Source 
svn: r9058
This commit is contained in:
Sam Tobin-Hochstadt 2008-03-22 02:11:50 +00:00
parent 0ee6afc2a1
commit a3076b8648
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -72,7 +72,7 @@
[acc (reverse acc)] [acc (reverse acc)]
;; remove the first element, if it's #f ;; remove the first element, if it's #f
[acc (cond [(null? acc) acc] [(not (car acc)) (cdr acc)] [else 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 (cert #'s)) acc
(if (eq? '_ (syntax-e #'pats)) (if (eq? '_ (syntax-e #'pats))
(map make-Dummy acc) (map make-Dummy acc)
(let* ([ps (syntax->list #'pats)]) (let* ([ps (syntax->list #'pats)])

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

@ -194,7 +194,7 @@
[acc (reverse acc)] [acc (reverse acc)]
;; remove the first element, if it's #f ;; remove the first element, if it's #f
[acc (cond [(null? acc) acc] [(not (car acc)) (cdr acc)] [else 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 (cert #'s)) acc
(if (eq? '_ (syntax-e #'pats)) (if (eq? '_ (syntax-e #'pats))
(map make-Dummy acc) (map make-Dummy acc)
(let* ([ps (syntax->list #'pats)]) (let* ([ps (syntax->list #'pats)])