From 08e0eff03f4dd8aa476544fae49d389b6d0e831a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 7 May 2008 07:49:13 -0500
Subject: [PATCH] Fix stack effect

---
 core/checksums/checksums-tests.factor | 7 +++++++
 extra/checksums/null/null.factor      | 4 ++--
 2 files changed, 9 insertions(+), 2 deletions(-)
 create mode 100644 core/checksums/checksums-tests.factor

diff --git a/core/checksums/checksums-tests.factor b/core/checksums/checksums-tests.factor
new file mode 100644
index 0000000000..1ec675b0cf
--- /dev/null
+++ b/core/checksums/checksums-tests.factor
@@ -0,0 +1,7 @@
+IN: checksums.tests
+USING: checksums tools.test ;
+
+\ checksum-bytes must-infer
+\ checksum-stream must-infer
+\ checksum-lines must-infer
+\ checksum-file must-infer
diff --git a/extra/checksums/null/null.factor b/extra/checksums/null/null.factor
index d2dc305ac2..d3ab878a12 100644
--- a/extra/checksums/null/null.factor
+++ b/extra/checksums/null/null.factor
@@ -1,8 +1,8 @@
-USING: checksums ;
+USING: checksums kernel ;
 IN: checksums.null
 
 SINGLETON: null
 
 INSTANCE: null checksum
 
-M: null checksum-bytes ;
+M: null checksum-bytes drop ;