summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-05-29 11:19:29 +0200
committerAndy Wingo <wingo@pobox.com>2020-05-29 16:33:48 +0200
commit1baed763498e442ddf31c7b72ce089100931646b (patch)
tree7c7936699f240478e28b6b6e59ef5edb01f8b08d
parent3c4d4acbd4fa233722c1cec684ad16819c0fc70a (diff)
downloadguile-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.scm2
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))