dane/scm-to-vm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove failing tests, remove implemented code generator

Browse Source
This commit is contained in:
Dane Johnson
2025-11-25 17:45:18 -06:00
parent 4f8459ae64
commit b5d3438e79
2 changed files with 1 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
scmvm/language/scheme.scm
View File

@@ -163,5 +163,3 @@
`(let ([,$t ,t]) ,(k $t))))))) `(let ([,$t ,t]) ,(k $t)))))))
(define-cps-loop normalize-name* normalize-name) (define-cps-loop normalize-name* normalize-name)
;; Machine code generation

12
tests.scm
View File

@@ -3,7 +3,7 @@
(scmvm vm) (scmvm vm)
(scmvm debugger) (scmvm debugger)
(scmvm language assembly) (scmvm language assembly)
(scmvm language cps) (scmvm language scheme)
(rnrs bytevectors) (rnrs bytevectors)
(rnrs io ports) (rnrs io ports)
((scheme base) ((scheme base)
@@ -167,13 +167,3 @@
(debugger-continue my-debugger) (debugger-continue my-debugger)
(assert-equal 23 (vm-pc my-vm)) ;; continue stops stepping (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))))