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

traced bug with list intersection

Browse Source
This commit is contained in:
Danny Yoo 2011-03-23 19:19:49 -04:00
parent 1e30968481
commit 56e616c04b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
helpers.rkt
View File

@ -25,7 +25,7 @@
[(memq (car s1) s2) [(memq (car s1) s2)
(cons (car s1) (list-intersection (cdr s1) s2))] (cons (car s1) (list-intersection (cdr s1) s2))]
[else [else
(list-difference (cdr s1) s2)])) (list-intersection (cdr s1) s2)]))
;; Trying to work around what looks like a bug in typed racket: ;; Trying to work around what looks like a bug in typed racket: