wingo pushed a commit to branch master in repository guile. commit 1baed763498e442ddf31c7b72ce089100931646b Author: Andy Wingo <wi...@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))