From c905501b70ddce6a18e36a6cbbe079b9c7933051 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Tue, 22 Mar 2016 13:55:03 +0100
Subject: [PATCH] Fixed compilation errors.

---
 graph-lib/graph/test-map-get.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/graph-lib/graph/test-map-get.rkt b/graph-lib/graph/test-map-get.rkt
index 13e1dbd..fccb6d9 100644
--- 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)