Trying to get ortree test working

This commit is contained in:
2022-02-21 17:59:41 +01:00
parent 296411da8c
commit 0a5a271409
7 changed files with 103 additions and 9 deletions

View File

@@ -122,3 +122,26 @@
(define assert-var-bool (lambda (x v) (assert-var-int x 1 v)))
(define set-bool-array
(lambda (ch width val)
(letrec ((ch)
(helper
(lambda (i v)
(cond
((=? i width) #t)
(#t (let ((tmp (string-append ch (string-append "[" (string-append (number->string i) "]")))))
(begin
(set tmp (% v 2))
(helper (+ 1 i) (truncate (/ v 2)))
)
))
)
)
))
(begin
(helper 0 val)
)
)
)
)