Fixed compilation errors.

2016-03-22 13:55:03 +01:00 · 2016-03-22 13:55:03 +01:00 · c905501b70
commit c905501b70
parent 3516d1aac8
1 changed files with 1 additions and 1 deletions
--- a/graph-lib/graph/test-map-get.rkt
+++ b/graph-lib/graph/test-map-get.rkt
@ -33,7 +33,7 @@
  (map: (compose (curry map (λget owner)) (λget houses …)) (get g streets))
  
  (get '((1 2) (3)) … …)
-  (structure-get (cadr (force g)) people)
+  (uniform-get g people)
  (get g people)
  (get g streets cadr houses car owner name)
  ((λget people) g)