Suppress warning that htons overrides core binding.
authorDavid Thompson <dthompson2@worcester.edu>
Mon, 14 Jul 2014 00:42:58 +0000 (20:42 -0400)
committerDavid Thompson <dthompson2@worcester.edu>
Mon, 14 Jul 2014 00:42:58 +0000 (20:42 -0400)
* tox/util.scm: Add replace directive for htons.

tox/util.scm

index 986ee4d..ddb4e0c 100644 (file)
@@ -32,7 +32,8 @@
             utf8-pointer->string
             bytevector-slice
             false-if-negative false-if-zero
-            htons))
+            htons)
+  #:replace (htons))
 
 (define (boolean->number true?)
   "Return 1 if TRUE? is #t, 0 otherwise."