Trying to get ortree test working
This commit is contained in:
@@ -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)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
Reference in New Issue
Block a user