From 5db3e6bce42d902cb8e6ea53e9e950e47496ae59 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 21 Oct 2013 22:25:27 +0200 Subject: [PATCH] CPS->RTL compiler: add push-fluid and pop-fluid * module/language/cps/compile-rtl.scm (emit-rtl-sequence): Add cases for push-fluid and pop-fluid. --- module/language/cps/compile-rtl.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/module/language/cps/compile-rtl.scm b/module/language/cps/compile-rtl.scm index 0303d6106..163458e6d 100644 --- a/module/language/cps/compile-rtl.scm +++ b/module/language/cps/compile-rtl.scm @@ -222,6 +222,10 @@ (emit-set-cdr! asm (slot pair) (slot value))) (($ $primcall 'define! (sym value)) (emit-define asm (slot sym) (slot value))) + (($ $primcall 'push-fluid (fluid val)) + (emit-push-fluid asm (slot fluid) (slot val))) + (($ $primcall 'pop-fluid ()) + (emit-pop-fluid asm)) (($ $primcall 'unwind ()) (emit-unwind asm)) (($ $primcall name args)