[Guile-commits] 03/09: Baseline compiler: add pop-fluid primitive.

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 3b6023d66d8c86bdedb04e26a897755a1e523cdd
Author: Andy Wingo <address@hidden>
AuthorDate: Mon May 11 13:32:19 2020 +0200

    Baseline compiler: add pop-fluid primitive.
    
    * module/language/tree-il/compile-bytecode.scm (pop-fluid): New
      primitive.
---
 module/language/tree-il/compile-bytecode.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/module/language/tree-il/compile-bytecode.scm 
b/module/language/tree-il/compile-bytecode.scm
index c8ecf53..91a8668 100644
--- a/module/language/tree-il/compile-bytecode.scm
+++ b/module/language/tree-il/compile-bytecode.scm
@@ -266,6 +266,7 @@
   (push-dynamic-state #:nargs 1                #:emit emit-push-dynamic-state)
   (pop-dynamic-state  #:nargs 0                #:emit emit-pop-dynamic-state)
   (push-fluid       #:nargs 2                  #:emit emit-push-fluid)
+  (pop-fluid        #:nargs 0                  #:emit emit-pop-fluid)
   (pop-fluid-state  #:nargs 0                  #:emit emit-pop-dynamic-state)
   (fluid-ref        #:nargs 1 #:has-result? #t #:emit emit-fluid-ref)
   (fluid-set!       #:nargs 2                  #:emit emit-fluid-set!)