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

Fix `hash-name' to avoid collisions.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-09-09 14:02:50 -04:00
parent b6b840076b
commit eea479b34a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/rep/filter-rep.rkt
View File

@ -15,7 +15,7 @@
(provide Filter/c FilterSet/c name-ref/c hash-name) (provide Filter/c FilterSet/c name-ref/c hash-name)
(define name-ref/c (or/c identifier? integer?)) (define name-ref/c (or/c identifier? integer?))
(define (hash-name v) (if (identifier? v) (hash-id v) v)) (define (hash-name v) (if (identifier? v) (hash-id v) (list v)))
(df Bot () [#:fold-rhs #:base]) (df Bot () [#:fold-rhs #:base])
(df Top () [#:fold-rhs #:base]) (df Top () [#:fold-rhs #:base])