guile-commits
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]