From 6e422a3599d0f293078576b1e77c74f408d80a14 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 7 Nov 2013 10:32:21 +0100 Subject: Source information goes on the $continue, not the $cont. * module/language/cps.scm ($continue, $cont): Put source information on the $continue, not on the $cont. Otherwise it is difficult for CPS conversion to preserve source information. ($fun): Add a src member to $fun. Otherwise we might miss the source info for the start of the function. * .dir-locals.el: * module/language/cps/arities.scm: * module/language/cps/closure-conversion.scm: * module/language/cps/compile-rtl.scm: * module/language/cps/constructors.scm: * module/language/cps/contification.scm: * module/language/cps/dfg.scm: * module/language/cps/elide-values.scm: * module/language/cps/reify-primitives.scm: * module/language/cps/slot-allocation.scm: * module/language/cps/verify.scm: * module/language/tree-il/compile-cps.scm: Update the whole CPS world for this change. --- .dir-locals.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to '.dir-locals.el') diff --git a/.dir-locals.el b/.dir-locals.el index 94a21263b..0589229cd 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -21,7 +21,7 @@ (eval . (put '$letk 'scheme-indent-function 1)) (eval . (put '$letk* 'scheme-indent-function 1)) (eval . (put '$letconst 'scheme-indent-function 1)) - (eval . (put '$continue 'scheme-indent-function 1)) + (eval . (put '$continue 'scheme-indent-function 2)) (eval . (put '$kargs 'scheme-indent-function 2)) (eval . (put '$kentry 'scheme-indent-function 2)) (eval . (put '$kclause 'scheme-indent-function 1)) -- cgit v1.2.1