From b5d3438e799f3ad2cdac291e5ef767832eadf5c4 Mon Sep 17 00:00:00 2001 From: Dane Johnson Date: Tue, 25 Nov 2025 17:45:18 -0600 Subject: [PATCH] Remove failing tests, remove implemented code generator --- scmvm/language/scheme.scm | 2 -- tests.scm | 12 +----------- 2 files changed, 1 insertion(+), 13 deletions(-) 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))))