From 7cd61e2bf6934f40b442d490e9ab4280cb5cbe3e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 8 May 2015 13:19:59 +0200 Subject: [PATCH] cps2: Fix parse-cps for `prompt' * module/language/cps2.scm (parse-cps): Fix for `prompt'. --- module/language/cps2.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps2.scm b/module/language/cps2.scm index 6476c2dd0..76219f376 100644 --- a/module/language/cps2.scm +++ b/module/language/cps2.scm @@ -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))))