diff --git a/scmvm/language/scheme.scm b/scmvm/language/scheme.scm
index d09a9e1..bb8bcc7 100644
--- a/scmvm/language/scheme.scm
+++ b/scmvm/language/scheme.scm
@@ -163,5 +163,3 @@
 	   `(let ([,$t ,t]) ,(k $t)))))))
 
 (define-cps-loop normalize-name* normalize-name)
-
-;; Machine code generation
diff --git a/tests.scm b/tests.scm
index d615245..17c6e6e 100644
--- a/tests.scm
+++ b/tests.scm
@@ -3,7 +3,7 @@
              (scmvm vm)
 	     (scmvm debugger)
 	     (scmvm language assembly)
-	     (scmvm language cps)
+	     (scmvm language scheme)
              (rnrs bytevectors)
              (rnrs io ports)
              ((scheme base)
@@ -167,13 +167,3 @@
     (debugger-continue my-debugger)
     (assert-equal 23 (vm-pc my-vm)) ;; continue stops stepping
     ))
-
-(define-test-suite "cps"
-  (define-test "atomics"
-    (define asm (make-assembler))
-    (compile-cps asm '(1))
-    (assert-equal 1 (bytevector-u32-native-ref (assembler-buf asm) 0)))
-  (define-test "atomics"
-    (define asm (make-assembler))
-    (compile-cps asm '(1))
-    (assert-equal 1 (bytevector-u32-native-ref (assembler-buf asm) 0))))