[Guile-commits] 06/12: Macro fix to CPS build-term

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 1baed763498e442ddf31c7b72ce089100931646b
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Fri May 29 11:19:29 2020 +0200

    Macro fix to CPS build-term
    
    * module/language/cps.scm (build-term): Match on $branch and $throw as
      literals.
---
 module/language/cps.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/cps.scm b/module/language/cps.scm
index 604347d..99efc7e 100644
--- a/module/language/cps.scm
+++ b/module/language/cps.scm
@@ -221,7 +221,7 @@
      (make-$kclause (build-arity arity) kbody kalternate))))
 
 (define-syntax build-term
-  (syntax-rules (unquote $rec $continue)
+  (syntax-rules (unquote $continue $branch $prompt $throw)
     ((_ (unquote exp))
      exp)
     ((_ ($continue k src exp))