mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
15 lines
291 B
Scheme
15 lines
291 B
Scheme
;-*-Scheme-*-
|
|
|
|
(test-setup 7 #f)
|
|
|
|
;; this computes nothing that we can check, but verifies that the coloring
|
|
;; doesn't do something crazy when constrained a little strangely
|
|
(rlet ((x :reg rsp :type int64))
|
|
(mod x 2)
|
|
(mod 2 x)
|
|
)
|
|
|
|
(let ((x 33))
|
|
(+ (mod x 10) 4)
|
|
)
|