mirror of
https://github.com/open-goal/jak-project
synced 2026-07-06 14:01:20 -04:00
water
15 lines
314 B
Scheme
15 lines
314 B
Scheme
;-*-Scheme-*-
|
|
|
|
|
|
(test-setup 44 #f)
|
|
|
|
;; test calling an inline function. doesn't actually verify the call is inline.
|
|
|
|
(defun inline-test-function-2 ((x integer))
|
|
;; inline this function by default.
|
|
(declare (allow-inline))
|
|
(* 4 x)
|
|
)
|
|
|
|
(+ (inline-test-function-2 8) ((inline inline-test-function-2) 3))
|