syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix error in intersect-routes

This commit is contained in:
Tony Garnock-Jones 2013-10-28 19:07:45 +00:00
parent 918f963b1b
commit 2f494f5ec0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
minimart/core.rkt
View File

@ -88,7 +88,7 @@
(= (route-meta-level r1) (route-meta-level r2))
(< (route-level r1) (route-level r2)))
(intersect (route-pattern r1) (route-pattern r2)
(lambda (rr) (loop2 rs2 (cons rr acc)))
(lambda (rr) (loop2 rs2 (cons (struct-copy route r1 [pattern rr]) acc)))
(lambda () (loop2 rs2 acc)))
(loop2 rs2 acc))]))])))