mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

cps2: Fix parse-cps for `prompt'

Browse source 
* 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
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps2.scm
View file

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