[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, wip-cps-bis, updated. v2.1.0-207-g8499
From: |
Mark H Weaver |
Subject: |
[Guile-commits] GNU Guile branch, wip-cps-bis, updated. v2.1.0-207-g8499f0a |
Date: |
Sat, 17 Aug 2013 11:04:19 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=8499f0a37dbdf3d8f2eb7526fc2bb9fd4eab9098
The branch, wip-cps-bis has been updated
via 8499f0a37dbdf3d8f2eb7526fc2bb9fd4eab9098 (commit)
from 5c9d29ef53d9bcaa79538ba8467c6a85432b18fe (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 8499f0a37dbdf3d8f2eb7526fc2bb9fd4eab9098
Author: Mark H Weaver <address@hidden>
Date: Sat Aug 17 07:02:16 2013 -0400
Move CPS macro scheme-indent-functions to .dir-locals.el.
* .dir-locals.el: Add scheme-indent-functions entries for CPS macros.
* module/language/cps.scm:
* module/language/cps/arities.scm:
* module/language/cps/closure-conversion.scm:
* module/language/cps/reify-primitives.scm:
* module/language/tree-il/compile-cps.scm: Remove the
scheme-indent-functions that are now in .dir-locals.el
-----------------------------------------------------------------------
Summary of changes:
.dir-locals.el | 25 +++++++++++++++++++------
module/language/cps.scm | 16 ----------------
module/language/cps/arities.scm | 8 --------
module/language/cps/closure-conversion.scm | 16 ----------------
module/language/cps/reify-primitives.scm | 16 ----------------
module/language/tree-il/compile-cps.scm | 10 ----------
6 files changed, 19 insertions(+), 72 deletions(-)
diff --git a/.dir-locals.el b/.dir-locals.el
index a24e860..3858b77 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -5,12 +5,25 @@
(c-mode . ((c-file-style . "gnu")))
(scheme-mode
. ((indent-tabs-mode . nil)
- (eval . (put 'pass-if 'scheme-indent-function 1))
- (eval . (put 'pass-if-exception 'scheme-indent-function 2))
- (eval . (put 'pass-if-equal 'scheme-indent-function 2))
- (eval . (put 'with-test-prefix 'scheme-indent-function 1))
- (eval . (put 'with-code-coverage 'scheme-indent-function 1))
- (eval . (put 'with-statprof 'scheme-indent-function 1))))
+ (eval . (put 'pass-if 'scheme-indent-function 1))
+ (eval . (put 'pass-if-exception 'scheme-indent-function 2))
+ (eval . (put 'pass-if-equal 'scheme-indent-function 2))
+ (eval . (put 'with-test-prefix 'scheme-indent-function 1))
+ (eval . (put 'with-code-coverage 'scheme-indent-function 1))
+ (eval . (put 'with-statprof 'scheme-indent-function 1))
+ (eval . (put 'let-gensyms 'scheme-indent-function 1))
+ (eval . (put 'build-cps-term 'scheme-indent-function 0))
+ (eval . (put 'build-cps-call 'scheme-indent-function 0))
+ (eval . (put 'build-cps-cont 'scheme-indent-function 0))
+ (eval . (put 'rewrite-cps-term 'scheme-indent-function 1))
+ (eval . (put 'rewrite-cps-cont 'scheme-indent-function 1))
+ (eval . (put 'rewrite-cps-call 'scheme-indent-function 1))
+ (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 '$kargs 'scheme-indent-function 2))
+ (eval . (put '$kentry 'scheme-indent-function 1))))
(emacs-lisp-mode . ((indent-tabs-mode . nil)))
(texinfo-mode . ((indent-tabs-mode . nil)
(fill-column . 72))))
diff --git a/module/language/cps.scm b/module/language/cps.scm
index 79fc8ad..7d196ee 100644
--- a/module/language/cps.scm
+++ b/module/language/cps.scm
@@ -390,19 +390,3 @@
(($ $letrec names syms funs body) (term-folder body seed))))
(cont-folder cont seed))
-
-;;; Local Variables:
-;;; eval: (put 'let-gensyms 'scheme-indent-function 1)
-;;; eval: (put 'build-cps-term 'scheme-indent-function 0)
-;;; eval: (put 'build-cps-call 'scheme-indent-function 0)
-;;; eval: (put 'build-cps-cont 'scheme-indent-function 0)
-;;; eval: (put 'rewrite-cps-term 'scheme-indent-function 1)
-;;; eval: (put 'rewrite-cps-cont 'scheme-indent-function 1)
-;;; eval: (put 'rewrite-cps-call 'scheme-indent-function 1)
-;;; 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 '$kargs 'scheme-indent-function 2)
-;;; eval: (put '$kentry 'scheme-indent-function 1)
-;;; End:
diff --git a/module/language/cps/arities.scm b/module/language/cps/arities.scm
index 7831bd7..1c9e8f2 100644
--- a/module/language/cps/arities.scm
+++ b/module/language/cps/arities.scm
@@ -147,11 +147,3 @@
(rewrite-cps-call fun
(($ $fun meta self free entries)
($fun meta self free ,(map fix-entry-arities entries)))))
-
-;;; Local Variables:
-;;; eval: (put 'let-gensyms 'scheme-indent-function 1)
-;;; eval: (put 'build-cps-term 'scheme-indent-function 0)
-;;; eval: (put '$letk 'scheme-indent-function 1)
-;;; eval: (put '$continue 'scheme-indent-function 1)
-;;; eval: (put '$kargs 'scheme-indent-function 2)
-;;; End:
diff --git a/module/language/cps/closure-conversion.scm
b/module/language/cps/closure-conversion.scm
index 1f4e9dd..5691ec0 100644
--- a/module/language/cps/closure-conversion.scm
+++ b/module/language/cps/closure-conversion.scm
@@ -260,19 +260,3 @@ and allocate and initialize flat closures."
(error "Expected no free vars in toplevel thunk" exp entries free))
(build-cps-call
($fun meta self '() ,(map convert-to-indices entries)))))))
-
-;;; Local Variables:
-;;; eval: (put 'let-gensyms 'scheme-indent-function 1)
-;;; eval: (put 'build-cps-term 'scheme-indent-function 0)
-;;; eval: (put 'build-cps-call 'scheme-indent-function 0)
-;;; eval: (put 'build-cps-cont 'scheme-indent-function 0)
-;;; eval: (put 'rewrite-cps-term 'scheme-indent-function 1)
-;;; eval: (put 'rewrite-cps-cont 'scheme-indent-function 1)
-;;; eval: (put 'rewrite-cps-call 'scheme-indent-function 1)
-;;; 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 '$kargs 'scheme-indent-function 2)
-;;; eval: (put '$kentry 'scheme-indent-function 1)
-;;; End:
diff --git a/module/language/cps/reify-primitives.scm
b/module/language/cps/reify-primitives.scm
index 27ebc35..0327020 100644
--- a/module/language/cps/reify-primitives.scm
+++ b/module/language/cps/reify-primitives.scm
@@ -93,19 +93,3 @@
(_ term)))))
(visit-fun fun)))
-
-;;; Local Variables:
-;;; eval: (put 'let-gensyms 'scheme-indent-function 1)
-;;; eval: (put 'build-cps-term 'scheme-indent-function 0)
-;;; eval: (put 'build-cps-call 'scheme-indent-function 0)
-;;; eval: (put 'build-cps-cont 'scheme-indent-function 0)
-;;; eval: (put 'rewrite-cps-term 'scheme-indent-function 1)
-;;; eval: (put 'rewrite-cps-cont 'scheme-indent-function 1)
-;;; eval: (put 'rewrite-cps-call 'scheme-indent-function 1)
-;;; 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 '$kargs 'scheme-indent-function 2)
-;;; eval: (put '$kentry 'scheme-indent-function 1)
-;;; End:
diff --git a/module/language/tree-il/compile-cps.scm
b/module/language/tree-il/compile-cps.scm
index d349025..304b211 100644
--- a/module/language/tree-il/compile-cps.scm
+++ b/module/language/tree-il/compile-cps.scm
@@ -558,14 +558,4 @@ indicates that the replacement variable is in a box."
;;; Local Variables:
;;; eval: (put 'convert-arg 'scheme-indent-function 1)
;;; eval: (put 'convert-args 'scheme-indent-function 1)
-;;; eval: (put 'let-gensyms 'scheme-indent-function 1)
-;;; eval: (put 'build-cps-term 'scheme-indent-function 0)
-;;; eval: (put 'build-cps-call 'scheme-indent-function 0)
-;;; eval: (put 'build-cps-cont 'scheme-indent-function 0)
-;;; 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 '$kargs 'scheme-indent-function 2)
-;;; eval: (put '$kentry 'scheme-indent-function 1)
;;; End:
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, wip-cps-bis, updated. v2.1.0-207-g8499f0a,
Mark H Weaver <=