suzanne.soy/phc-graph
1
0
Fork 0
Code Issues 24 Pull Requests Actions Packages Projects Releases Wiki Activity

Small bug fixes in traversal.hl.rkt and free-identifier-tree-equal.rkt

Browse Source
This commit is contained in:
Georges Dupéron 2017-03-20 16:11:01 +01:00
parent 9814513b47
commit dad01aa118
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
free-identifier-tree-equal.rkt
View File

@ -62,12 +62,14 @@
(rec=? (struct->list a)
(struct->list b)))))]
[(struct? a)
(rec=? (vector->immutable-vector (struct->vector a)))]
(and (struct? b)
(rec=? (vector->immutable-vector (struct->vector a))
(vector->immutable-vector (struct->vector b))))]
[(null? a) (null? b)]
[else (equal? a b)]))
(define/contract ((free-id-tree-hash default-hc) a [hc default-hc])
(-> (-> any/c fixnum?) (-> isyntax/c (-> isyntax/c fixnum?) fixnum?))
(-> (-> any/c fixnum?) (->* {isyntax/c} {(-> isyntax/c fixnum?)} fixnum?))
(define rec-hash (free-id-tree-hash hc))
(cond
[(identifier? a) (hc (syntax-e #'a))]

2
traversal.hl.rkt
View File

@ -17,7 +17,7 @@
values)
(only-in racket/base values)
(subtract-in racket/contract typed/racket/base)
phc-toolkit
(except-in phc-toolkit generate-temporary)
phc-toolkit/untyped-only
remember))
@(unless-preexpanding