From 6ffa3538cfeb5a97e967544bfbbcf907f4aa565f Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sat, 30 Jul 2022 13:31:05 -0700 Subject: Add call-builtin syntax. This syntax allows calling opcodes directly from scheme code. Very powerful technique. --- csc/cps.csc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'csc/cps.csc') diff --git a/csc/cps.csc b/csc/cps.csc index 0dc8a96..f2a9c90 100644 --- a/csc/cps.csc +++ b/csc/cps.csc @@ -262,7 +262,7 @@ (lambda (v) (make-apply f (list return-address v)))))))) ((% %call-builtin op args) - (define returns-value? (not (symbol=? op 'poke))) + (define returns-value? (not (memq op '(poke exit)))) (loop for arg in (reverse args) with expr = (lambda (vals) (if returns-value? -- cgit v1.3.1