1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00

cps2: Fix parse-cps for `prompt'

* module/language/cps2.scm (parse-cps): Fix for `prompt'.
This commit is contained in:
Andy Wingo 2015-05-08 13:19:59 +02:00
parent 773595f0db
commit 7cd61e2bf6

View file

@ -310,7 +310,7 @@
(('values arg ...)
(build-exp ($values arg)))
(('prompt escape? tag handler)
(build-cps-exp ($prompt escape? tag handler)))
(build-exp ($prompt escape? tag handler)))
(_
(error "unexpected cps" exp))))