diff options
author | Andy Wingo <wingo@pobox.com> | 2020-05-29 11:19:29 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-05-29 16:33:48 +0200 |
commit | 1baed763498e442ddf31c7b72ce089100931646b (patch) | |
tree | 7c7936699f240478e28b6b6e59ef5edb01f8b08d | |
parent | 3c4d4acbd4fa233722c1cec684ad16819c0fc70a (diff) | |
download | guile-1baed763498e442ddf31c7b72ce089100931646b.tar.gz |
Macro fix to CPS build-term
* module/language/cps.scm (build-term): Match on $branch and $throw as
literals.
-rw-r--r-- | module/language/cps.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/cps.scm b/module/language/cps.scm index 604347dda..99efc7eb5 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)) |