www

commit 122587f6eaea04ac2ff51d9245b20b70bc1b2b14
parent c5d480a125e09b7e2d6e43cd3db63f70ee8e517b
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Mon, 12 Sep 2016 15:50:37 +0200

Fixed types for equal+hash

Diffstat:
M
main.rkt
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/main.rkt b/main.rkt
@@ -58,17 +58,17 @@
                                        #'(→ ins ins2 (→ Any Any Boolean) Any)))
                                (ann hash1
                                     #,(maybe-∀
-                                       #'(→ ins (→ Any Integer) Integer)))
+                                       #'(→ ins (→ Any Fixnum) Fixnum)))
                                (ann hash2
                                     #,(maybe-∀
-                                       #'(→ ins (→ Any Integer) Integer))))]
+                                       #'(→ ins (→ Any Fixnum) Fixnum))))]
                       [expr:expr #'expr]))
                   #`((: eq+h (List #,(maybe-∀2
                                       #'(→ ins ins2 (→ Any Any Boolean) Any))
                                    #,(maybe-∀
-                                      #'(→ ins (→ Any Integer) Integer))
+                                      #'(→ ins (→ Any Fixnum) Fixnum))
                                    #,(maybe-∀
-                                      #'(→ ins (→ Any Integer) Integer))))
+                                      #'(→ ins (→ Any Fixnum) Fixnum))))
                      (define eq+h equal+hash-ann)))
                 #'())